home *** CD-ROM | disk | FTP | other *** search
Text File | 1993-10-25 | 103.2 KB | 4,016 lines
#!fast-load 4.0 (sources/lisp/macros.s sources/lisp/basic.lsp sources/lisp/defmacro.lsp sources/lisp/io.lsp sources/lisp/format.lsp sources/lisp/sequence.lsp) h0007 008D x05CATCH x13CREATE-SCHEME-MACRO x07EXPLODE x07IMPLODE x05QUOTE x0CFLUID-LAMBDA x07CALL/CC t < 5 CI Å" ╦ E ë"& 44 ï" @d"CO O OOO O; z h000C 00D7 x05THROW x13CREATE-SCHEME-MACRO x07EXPLODE x07IMPLODE x05QUOTE x0CFLUID-BOUND? x05FLUID x0DCONTINUATION? x03AND s0010Bad tag on throw x05ERROR x02IF t < 5 CI Å" ╦ E ë"& 44 ï" @d"CO OO OO OO OOO OO OO O O O OO O; z h0004 0037 x02GO x13CREATE-SCHEME-MACRO x07EXPLODE x07IMPLODE t < 5 Cç"CO O O O ;A; z h000B 015E x04PROG x13CREATE-SCHEME-MACRO x08REVERSE! x06LETREC lx06RETURNn x06LAMBDA x07CALL/CC x07EXPLODE x07IMPLODE lx06RETURNlnn llx05QUOTElnnn t < 5 E0ê C0· 01 4 O OO OOO O;":@ A 0! O O O O O ┐; " k@ É ê " @ ç ê " A @ O ╫@ ç " '@44 AO @ O O 5 O 5 " *A @ï" @O @ OO ╨ ; z h0004 0018 x11DEFINE-INTEGRABLE lx05QUOTElnn x03NIL x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x02#T x01T x12PCS*PRIMOP-HANDLER t O u ; z h0003 0051 x10CHAR-UPPER-CASE? c41 c5A t < ; ┬ $ └ " ┬ $ └ ; ; ; z h0003 0051 x10CHAR-LOWER-CASE? c61 c7A t < ; ┬ $ └ " ┬ $ └ ; ; ; z h0001 0040 x10CHAR-ALPHABETIC? t < ;0! $ 0 ; ; ┼d; ─d; z h0003 0051 x0DCHAR-NUMERIC? c30 c39 t < ; ┬ $ └ " ┬ $ └ ; ; ; z h0004 003C x10CHAR-WHITESPACE? c20 c09 c0A t < ; └ $ └ $└; ; ; z h0004 0018 x11DEFINE-INTEGRABLE x05NULL? x04NULL x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x05ATOM? x04ATOM x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x05PAIR? x05CONSP x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x07SYMBOL? x07SYMBOLP x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x07STRING? x0FSIMPLE-STRING-P x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x07VECTOR? x0FSIMPLE-VECTOR-P x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x07STRING? x07STRINGP x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x07VECTOR? x07VECTORP x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x07NUMBER? x07NUMBERP x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x08INTEGER? x08INTEGERP x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x09RATIONAL? x09RATIONALP x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x06FLOAT? x06FLOATP x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x05CHAR? x0ACHARACTERP x12PCS*PRIMOP-HANDLER t O u ; z h0006 0025 x05LISTP lx01Xn x07ARGLIST x11DEFINE-INTEGRABLE lx0CNAMED-LAMBDAllx05LISTPlx01Xnllx02ORllx04NULLlx01Xnllx05PAIR?lx01Xnnn x12PCS*PRIMOP-HANDLER t u O u ; z h0006 0055 x0C%%ENDP-ERROR x05ERROR s0029The argument to ENDP, ~S, was not a list. x06FORMAT x05APPLY x0FERROR-PROCEDURE t < ; < ■ 5 0" 4 4 ;; z h0006 0025 x04ENDP lx01Xn x07ARGLIST x11DEFINE-INTEGRABLE lx0CNAMED-LAMBDAllx04ENDPlx01Xnllx02ORllx04NULLlx01Xnllx03ANDllx03NOTllx05PAIR?lx01Xnnllx0C%%ENDP-ERRORlx01Xnnnn x12PCS*PRIMOP-HANDLER t u O u ; z h0004 0018 x11DEFINE-INTEGRABLE x03EQ? x02EQ x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x04EQV? x03EQL x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x06EQUAL? x05EQUAL x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x05ZERO? x05ZEROP x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x09POSITIVE? x05PLUSP x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x09NEGATIVE? x06MINUSP x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x04ODD? x04ODDP x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x05EVEN? x05EVENP x12PCS*PRIMOP-HANDLER t O u ; z h0006 0025 x02/= lx02N1lx02N2n x07ARGLIST x11DEFINE-INTEGRABLE lx0CNAMED-LAMBDAllx02/=lx02N1lx02N2nllx03NOTllx01=lx02N1lx02N2nnn x12PCS*PRIMOP-HANDLER t u O u ; z h0004 0018 x11DEFINE-INTEGRABLE x06CHAR=? x05CHAR= x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x06CHAR<? x05CHAR< x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x06CHAR>? x05CHAR> x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x07CHAR<=? x06CHAR<= x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x07CHAR>=? x06CHAR>= x12PCS*PRIMOP-HANDLER t O u ; z h0006 0025 x06CHAR/= lx02C1lx02C2n x07ARGLIST x11DEFINE-INTEGRABLE lx0CNAMED-LAMBDAllx06CHAR/=lx02C1lx02C2nllx03NOTllx05CHAR=lx02C1lx02C2nnn x12PCS*PRIMOP-HANDLER t u O u ; z h0004 0018 x11DEFINE-INTEGRABLE x09CHAR-CI=? x0ACHAR-EQUAL x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x09CHAR-CI<? x0ACHAR-LESSP x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x09CHAR-CI>? x0DCHAR-GREATERP x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x0ACHAR-CI>=? x0ECHAR-NOT-LESSP x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x0ACHAR-CI<=? x11CHAR-NOT-GREATERP x12PCS*PRIMOP-HANDLER t O u ; z h0006 0025 x0ECHAR-NOT-EQUAL lx02C1lx02C2n x07ARGLIST x11DEFINE-INTEGRABLE lx0CNAMED-LAMBDAllx0ECHAR-NOT-EQUALlx02C1lx02C2nllx03NOTllx0ACHAR-EQUALlx02C1lx02C2nnn x12PCS*PRIMOP-HANDLER t u O u ; z h000B 0087 x0FSTANDARD-CHAR-P lx04CHARn x07ARGLIST lx04CHARn x04CHAR x05ERROR s002AThe value of CHAR, ~S, is not a character. x02#T x06FORMAT x05APPLY x0FERROR-PROCEDURE t u < ;▌ < 7£ê" < ■ 4 ;0" 4 4 ;; z h000D 00B6 x0EGRAPHIC-CHAR-P lx04CHARn x07ARGLIST lx04CHARn x04CHAR x05ERROR s002AThe value of CHAR, ~S, is not a character. c0A c09 c0C x06FORMAT x05APPLY x0FERROR-PROCEDURE t u < ;▌ < 7£ê" <H ■ 4 └ ê"! └ ê" └ ê; ; ; 0" 4 4 ;; z h000B 0087 x0DSTRING-CHAR-P lx04CHARn x07ARGLIST lx04CHARn x04CHAR x05ERROR s002AThe value of CHAR, ~S, is not a character. x02#T x06FORMAT x05APPLY x0FERROR-PROCEDURE t u < ;▌ < 7£ê" < ■ 4 ;0" 4 4 ;; z h000A 00A1 x0CALPHA-CHAR-P lx04CHARn x07ARGLIST lx04CHARn x04CHAR x05ERROR s002AThe value of CHAR, ~S, is not a character. x06FORMAT x05APPLY x0FERROR-PROCEDURE t u < ;▌ < 7£ê" <3 ■ 4 0 ; ─ ┼ d ê;0" 4 4 ;; z h000A 0097 x0CUPPER-CASE-P lx04CHARn x07ARGLIST lx04CHARn x04CHAR x05ERROR s002AThe value of CHAR, ~S, is not a character. x06FORMAT x05APPLY x0FERROR-PROCEDURE t u < ;▌ < 7£ê" <) ■ 4 0 ; ─d;0" 4 4 ;; z h000A 0097 x0CLOWER-CASE-P lx04CHARn x07ARGLIST lx04CHARn x04CHAR x05ERROR s002AThe value of CHAR, ~S, is not a character. x06FORMAT x05APPLY x0FERROR-PROCEDURE t u < ;▌ < 7£ê" <) ■ 4 0 ; ┼d;0" 4 4 ;; z h000A 00A1 x0BBOTH-CASE-P lx04CHARn x07ARGLIST lx04CHARn x04CHAR x05ERROR s002AThe value of CHAR, ~S, is not a character. x06FORMAT x05APPLY x0FERROR-PROCEDURE t u < ;▌ < 7£ê" <3 ■ 4 0 ; ─ ┼ d ê;0" 4 4 ;; z h000D 00DC x0CDIGIT-CHAR-P lx04CHARn x07ARGLIST lx04CHARn x04CHAR x05ERROR s002AThe value of CHAR, ~S, is not a character. c30 c3A c2F x06FORMAT x05APPLY x0FERROR-PROCEDURE t u < ;▌ < 7£ê" <n ■ 4 0 "í í R ; ; ┬ "$ ┬ê" └ ê; ; ; 0" 4 4 ;; z h000C 00EC x0DALPHANUMERICP lx04CHARn x07ARGLIST lx04CHARn x04CHAR x05ERROR s002AThe value of CHAR, ~S, is not a character. c3A c2F x06FORMAT x05APPLY x0FERROR-PROCEDURE t u < ;▌ < 7£ê" <~ ■ 4 0L $ 0 ; ; ┬ "$ ┬ê" └ ê; ; ; ─ ┼ d ê; 0" 4 4 ;; z h0004 0018 x11DEFINE-INTEGRABLE x09LAST-PAIR x04LAST x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x03-1+ x021- x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x0ESTRING->SYMBOL x06INTERN x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x07GETPROP x03GET x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x0ESYMBOL->STRING x0BSYMBOL-NAME x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x08PROPLIST x0CSYMBOL-PLIST x12PCS*PRIMOP-HANDLER t O u ; z h001B 014F x0DEXPAND-DEFVAR x06DEFVAR x13CREATE-SCHEME-MACRO lx04NAMElx09&OPTIONALllx0DINITIAL-VALUElx03NILlx03IV?nlx0DDOCUMENTATIONn x07ARGLIST lx0DDEFMACRO-FORMn x0DDEFMACRO-FORM x15%%CHECK-DEFMACRO-ARGS lx04NAMEn x04NAME lx03IV?n x03IV? lx0DINITIAL-VALUEn x0DINITIAL-VALUE x05ERROR s0058The third argument to DEFVAR was ~S, which is not a ~ documentation string. llx0FTHE-ENVIRONMENTnn x06ACCESS x0C#!UNASSIGNED x02EQ x06DEFINE x02IF x05QUOTE x05BEGIN x06FORMAT x05APPLY x0FERROR-PROCEDURE t < 4 u ;A▌ 4 @ A▌ êê▌ "@A▌ @ " Å ê " ( < Ç ■ 4 O O O O O " O $ O $ $O $ O O O O $O $ O O O ;0" 4 4 ;; z h0014 0101 x13EXPAND-DEFPARAMETER x0CDEFPARAMETER x13CREATE-SCHEME-MACRO lx04NAMElx0DINITIAL-VALUElx09&OPTIONALlx0DDOCUMENTATIONn x07ARGLIST lx0DDEFMACRO-FORMn x0DDEFMACRO-FORM x15%%CHECK-DEFMACRO-ARGS lx04NAMEn x04NAME lx0DINITIAL-VALUEn x0DINITIAL-VALUE x05ERROR s005EThe third argument to DEFPARAMETER was ~S, which is not a ~ documentation string. x06DEFINE x05QUOTE x05BEGIN x06FORMAT x05APPLY x0FERROR-PROCEDURE t < 4 u ;A▌ 4 @ A▌ @A▌ @ " Åê"$ <F ■ 4 O O O O O O O O ;0" 4 4 ;; z h0014 0101 x12EXPAND-DEFCONSTANT x0BDEFCONSTANT x13CREATE-SCHEME-MACRO lx04NAMElx0DINITIAL-VALUElx09&OPTIONALlx0DDOCUMENTATIONn x07ARGLIST lx0DDEFMACRO-FORMn x0DDEFMACRO-FORM x15%%CHECK-DEFMACRO-ARGS lx04NAMEn x04NAME lx0DINITIAL-VALUEn x0DINITIAL-VALUE x05ERROR s005EThe third argument to DEFPARAMETER was ~S, which is not a ~ documentation string. x11DEFINE-INTEGRABLE x05QUOTE x05BEGIN x06FORMAT x05APPLY x0FERROR-PROCEDURE t < 4 u ;A▌ 4 @ A▌ @A▌ @ " Åê"$ <F ■ 4 O O O O O O O O ;0" 4 4 ;; z h0004 0013 x05PROG1 x05ALIAS x06BEGIN0 x13CREATE-SCHEME-MACRO t O 5 z h0004 0013 x05PROGN x05ALIAS x05BEGIN x13CREATE-SCHEME-MACRO t O 5 z h0008 007C x0CEXPAND-PROG2 x05PROG2 x13CREATE-SCHEME-MACRO lx05FIRSTlx06SECONDlx05&RESTlx04RESTn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x06BEGIN0 x05BEGIN t < 4 u ;A 4 @ A @A " O O O O O ; z h0005 001D x07DECLARE x13CREATE-SCHEME-MACRO x13%EXPAND-SYNTAX-FORM x0CDECLARATIONS lx05QUOTElx07DECLAREn t < 5 5 z h0005 001D x08PROCLAIM x13CREATE-SCHEME-MACRO x13%EXPAND-SYNTAX-FORM x0CDECLARATIONS lx05QUOTElx08PROCLAIMn t < 5 5 z h0005 001D x04WHEN x13CREATE-SCHEME-MACRO x13%EXPAND-SYNTAX-FORM lx09CONDITIONx04BODY lx04CONDllx09CONDITIONx04BODYn t < 5 5 z h0005 001D x06UNLESS x13CREATE-SCHEME-MACRO x13%EXPAND-SYNTAX-FORM lx09CONDITIONx04BODY lx04CONDlllx03NOTlx09CONDITIONnx04BODYn t < 5 5 z h0007 0046 x0DEXPAND-VALUES x06VALUES x13CREATE-SCHEME-MACRO lx05&RESTlx04ARGSn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x19*THE-NON-PRINTING-OBJECT* t < 4 u ;A 4 "@ ;; z h000A 0084 x0EMACRO-FUNCTION lx06SYMBOLn x06SYMBOL x02#T x09PCS*MACRO x05ERROR s003BThe first argument to MACRO-FUNCTION, ~S, was not a symbol. x06FORMAT x05APPLY x0FERROR-PROCEDURE t < ■ ;▌ " @ É" t; " < ■5 ;0" 4 4 ;; z h000A 0084 x0EPRIMOP-HANDLER lx06SYMBOLn x06SYMBOL x02#T x12PCS*PRIMOP-HANDLER x05ERROR s003BThe first argument to PRIMOP-HANDLER, ~S, was not a symbol. x06FORMAT x05APPLY x0FERROR-PROCEDURE t < ■ ;▌ " @ É" t; " < ■5 ;0" 4 4 ;; z h0002 0029 x0CRENAME-MACRO x09PCS*MACRO t < ; t u w; z h0003 0061 x0DRENAME-PRIMOP x12PCS*PRIMOP-HANDLER x0APCS*OPCODE t < ; t " t u w t " t u w; ; z h0003 002A x0BCOPY-PRIMOP x0EPRIMOP-HANDLER x12PCS*PRIMOP-HANDLER t < ;4 ⁿuⁿ ⁿ; z h002A 013C x0BSCHEME-CASE x09PCS*MACRO x03LET x0ASCHEME-LET x0CRENAME-MACRO x04LET* x0BSCHEME-LET* x04CASE x02DO x09SCHEME-DO x05ERROR x0CSCHEME-ERROR x05FLOOR x04EVAL x0CSCHEME-FLOOR x07CEILING x0ESCHEME-CEILING x08TRUNCATE x0FSCHEME-TRUNCATE x05ROUND x0CSCHEME-ROUND x06MEMBER x0DSCHEME-MEMBER x0AFRESH-LINE x11SCHEME-FRESH-LINE x04READ x0BSCHEME-READ x05WRITE x0CSCHEME-WRITE x05APPLY x0CSCHEME-APPLY x05ASSOC x0CSCHEME-ASSOC x06LENGTH x0DSCHEME-LENGTH x09READ-CHAR x10SCHEME-READ-CHAR x0AWRITE-CHAR x11SCHEME-WRITE-CHAR x0BMAKE-STRING x12SCHEME-MAKE-STRING x0DRENAME-PRIMOP t tê#, 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 ! 4 "# 4 $% 4 &' 4 ( )4 )4 !" )4 #$ )4 %& )4 '( )5 ; z h0003 0056 x18%%TRANSFORM-LET-BINDINGS x06MAPCAR x03NIL t < ; < 5 É" x ; ï"Aê" @ x ;; z h0008 0063 x0AEXPAND-LET x03LET x13CREATE-SCHEME-MACRO lx08BINDINGSlx05&BODYlx04BODYn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x18%%TRANSFORM-LET-BINDINGS x0ASCHEME-LET t < 4 u ;A 4 @ A 4OO; z h0008 0063 x0BEXPAND-LET* x04LET* x13CREATE-SCHEME-MACRO lx08BINDINGSlx05&BODYlx04BODYn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x18%%TRANSFORM-LET-BINDINGS x0BSCHEME-LET* t < 4 u ;A 4 @ A 4OO; z h0018 0114 x0BEXPAND-CASE x04CASE x13CREATE-SCHEME-MACRO lx03KEYlx05&BODYlx07CLAUSESn x07ARGLIST lx0DDEFMACRO-FORMn x0DDEFMACRO-FORM x15%%CHECK-DEFMACRO-ARGS lx03KEYn x03KEY lx07CLAUSESn x07CLAUSES lx10FINAL-CLAUSE-KEYn x10FINAL-CLAUSE-KEY x03MAP x0BSCHEME-CASE x05ERROR s0057A ~A clause in a CASE statement is followed by ~ the clause ~S lx01Tlx09OTHERWISEn x04ELSE lx03NILn x06FORMAT x05APPLY x0FERROR-PROCEDURE t < 4 u ;A▌ 4 @ A▌ ▌ ▌ < 4 = OO; "% <G ■ 4@ g "@ A O ;A";@ O ;0" 4 4 ;; z h0004 0018 x11DEFINE-INTEGRABLE x04CASE x05ECASE x12PCS*PRIMOP-HANDLER t O u ; z h0009 004A x10MAKE-RETURN-FROM lx04NAMEn x07ARGLIST lx04NAMEn x04NAME x03NIL x0FRETURN-FROM-NIL x0DSYMBOL-APPEND x0CRETURN-FROM- t u < ;▌ < 7 d "; 5 z h0010 00C9 x12EXPAND-RETURN-FROM x0BRETURN-FROM x13CREATE-SCHEME-MACRO lx04NAMElx09&OPTIONALlx05VALUEn x07ARGLIST lx0DDEFMACRO-FORMn x0DDEFMACRO-FORM x15%%CHECK-DEFMACRO-ARGS lx04NAMEn x04NAME x05ERROR s0038The first argument to RETURN-FROM, ~S, was not a symbol. x10MAKE-RETURN-FROM x06FORMAT x05APPLY x0FERROR-PROCEDURE t < 4 u ;A▌ 4 @ A▌ @ Éê" <- ■ 4 4O O; 0" 4 4 ;; z h0008 0052 x0DEXPAND-RETURN x06RETURN x13CREATE-SCHEME-MACRO lx09&OPTIONALlx05VALUEn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x10MAKE-RETURN-FROM x03NIL t < 4 u ;A 4 @ 4O O; z h0012 00D8 x0CEXPAND-BLOCK x05BLOCK x13CREATE-SCHEME-MACRO lx04NAMElx05&BODYlx04BODYn x07ARGLIST lx0DDEFMACRO-FORMn x0DDEFMACRO-FORM x15%%CHECK-DEFMACRO-ARGS lx04NAMEn x04NAME x05ERROR s0032The first argument to BLOCK, ~S, was not a symbol. x10MAKE-RETURN-FROM x06LAMBDA x07CALL/CC x06FORMAT x05APPLY x0FERROR-PROCEDURE t < 4 u ;A▌ 4 @ A▌ Éê" <? ■ 4 4O O OO O;0" 4 4 ;; z h0009 008C x09EXPAND-DO x02DO x13CREATE-SCHEME-MACRO lx04VARSlx04TESTlx05&BODYlx04BODYn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x03NIL x09SCHEME-DO x05BLOCK t < 4 u ;A 4 @ A @A Aê" @ x OO O O O O ; z h000A 005D x0BEXPAND-LOOP x04LOOP x13CREATE-SCHEME-MACRO lx05&BODYlx04BODYn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS lx03NILn x09SCHEME-DO x03NIL x05BLOCK t < 4 u ;A 4 O O OO O O; z h0009 0065 x0BEXPAND-PROG x04PROG x13CREATE-SCHEME-MACRO lx08BINDINGSlx05&BODYlx04BODYn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x03LET x03NIL x05BLOCK t < 4 u ;A 4 @ A O OO OO; z h000A 012F lx05APPLYn x05APPLY lx03FCNlx04ARGSn x03FCN x04ARGS x04EVAL x05ERROR s0052The first argument to APPLY, ~S, ~ is not a procedure or symbol. x06FORMAT x0FERROR-PROCEDURE t▌ < ■= ;▌ ì $IÉ" 4 $ <ó ■ 4 A " < Y 6 < 6 ■5 < ■@5 q j A j@ q 9 q j A j@ q 90 ;E"A ⌡C;;0≤ 4 4 ; z h0008 005C x0CBINARY-FLOOR lx09NUMERATORlx09&OPTIONALlx0BDENOMINATORn x07ARGLIST lx0CBINARY-FLOORn lx09NUMERATORlx02G0n x09NUMERATOR x02G0 x0CSCHEME-FLOOR t u ▌ < ■ = ;▌ < 7 @ " U55 z h0008 005C x0EBINARY-CEILING lx09NUMERATORlx09&OPTIONALlx0BDENOMINATORn x07ARGLIST lx0EBINARY-CEILINGn lx09NUMERATORlx02G0n x09NUMERATOR x02G0 x0ESCHEME-CEILING t u ▌ < ■ = ;▌ < 7 @ " U55 z h0008 005C x0FBINARY-TRUNCATE lx09NUMERATORlx09&OPTIONALlx0BDENOMINATORn x07ARGLIST lx0FBINARY-TRUNCATEn lx09NUMERATORlx02G0n x09NUMERATOR x02G0 x0FSCHEME-TRUNCATE t u ▌ < ■ = ;▌ < 7 @ " U55 z h0008 005C x0CBINARY-ROUND lx09NUMERATORlx09&OPTIONALlx0BDENOMINATORn x07ARGLIST lx0CBINARY-ROUNDn lx09NUMERATORlx02G0n x09NUMERATOR x02G0 x0CSCHEME-ROUND t u ▌ < ■ = ;▌ < 7 @ " U55 z h0004 0018 x11DEFINE-INTEGRABLE x0CBINARY-FLOOR x05FLOOR x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x0EBINARY-CEILING x07CEILING x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x0FBINARY-TRUNCATE x08TRUNCATE x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x0CBINARY-ROUND x05ROUND x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x08SET-CAR! x06RPLACA x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x08SET-CDR! x06RPLACD x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x08REVERSE! x08NREVERSE x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x03CDR x04REST x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x03CAR x05FIRST x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x04CADR x06SECOND x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x05CADDR x05THIRD x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x06CADDDR x06FOURTH x12PCS*PRIMOP-HANDLER t O u ; z h0006 0025 x05FIFTH lx01Xn x07ARGLIST x11DEFINE-INTEGRABLE lx0CNAMED-LAMBDAllx05FIFTHlx01Xnllx03CARllx06CDDDDRlx01Xnnn x12PCS*PRIMOP-HANDLER t u O u ; z h0006 0025 x05SIXTH lx01Xn x07ARGLIST x11DEFINE-INTEGRABLE lx0CNAMED-LAMBDAllx05SIXTHlx01Xnllx04CADRllx06CDDDDRlx01Xnnn x12PCS*PRIMOP-HANDLER t u O u ; z h0006 0025 x07SEVENTH lx01Xn x07ARGLIST x11DEFINE-INTEGRABLE lx0CNAMED-LAMBDAllx07SEVENTHlx01Xnllx05CADDRllx06CDDDDRlx01Xnnn x12PCS*PRIMOP-HANDLER t u O u ; z h0006 0025 x06EIGHTH lx01Xn x07ARGLIST x11DEFINE-INTEGRABLE lx0CNAMED-LAMBDAllx06EIGHTHlx01Xnllx06CADDDRllx06CDDDDRlx01Xnnn x12PCS*PRIMOP-HANDLER t u O u ; z h0006 0025 x05NINTH lx01Xn x07ARGLIST x11DEFINE-INTEGRABLE lx0CNAMED-LAMBDAllx05NINTHlx01Xnllx03CARllx06CDDDDRllx06CDDDDRlx01Xnnnn x12PCS*PRIMOP-HANDLER t u O u ; z h0006 0025 x05TENTH lx01Xn x07ARGLIST x11DEFINE-INTEGRABLE lx0CNAMED-LAMBDAllx05TENTHlx01Xnllx04CADRllx06CDDDDRllx06CDDDDRlx01Xnnnn x12PCS*PRIMOP-HANDLER t u O u ; z h0004 0018 x11DEFINE-INTEGRABLE x0DCHAR->INTEGER x09CHAR-CODE x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x0DINTEGER->CHAR x09CODE-CHAR x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x0ASTRING-REF x04CHAR x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x0ASTRING-REF x05SCHAR x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x0AVECTOR-REF x05SVREF x12PCS*PRIMOP-HANDLER t O u ; z h0005 0043 x06ARRAYP lx01Xn x07ARGLIST lx01Xn x01X t u < ;▌ < 7Å $ æ; ; z h000B 009E x04AREF lx05ARRAYlx09SUBSCRIPTn x07ARGLIST lx05ARRAYlx09SUBSCRIPTn x05ARRAY x09SUBSCRIPT x05ERROR s0030The first argument to AREF, ~S, is not an array. x06FORMAT x05APPLY x0FERROR-PROCEDURE t u < ;▌ < 7 Å" ╟ ;æ" ; < ■ 5 0" 4 4 ;; z h0006 0082 x0B%%SETF-AREF x05ERROR s0036The second argument to SETF-AREF, ~S, is not an array. x06FORMAT x05APPLY x0FERROR-PROCEDURE t < ; Å" ╚ 2 æ" ! < ■ 4 ;0" 4 4 ;; z h0004 0018 x11DEFINE-INTEGRABLE x0BMAKE-VECTOR x0AMAKE-ARRAY x12PCS*PRIMOP-HANDLER t O u ; z h000A 00A3 x06STRING lx01Xn x07ARGLIST lx01Xn x01X x05ERROR s0030The argument, ~S, cannot be coerced to a string. x06FORMAT x05APPLY x0FERROR-PROCEDURE t u < ;▌ < 7Å";É" ═;£" ╔ ; < ■ 5 0" 4 4 ;; z h0008 0058 x07STRING= lx07STRING1lx07STRING2n x07ARGLIST lx07STRING1lx07STRING2n x07STRING1 x07STRING2 x06STRING x08STRING=? t u < ;▌ < 7 44 5 z h0008 0058 x0CSTRING-EQUAL lx07STRING1lx07STRING2n x07ARGLIST lx07STRING1lx07STRING2n x07STRING1 x07STRING2 x06STRING x0BSTRING-CI=? t u < ;▌ < 7 44 5 z h0008 0058 x07STRING< lx07STRING1lx07STRING2n x07ARGLIST lx07STRING1lx07STRING2n x07STRING1 x07STRING2 x06STRING x08STRING<? t u < ;▌ < 7 44 5 z h0008 0058 x07STRING> lx07STRING1lx07STRING2n x07ARGLIST lx07STRING1lx07STRING2n x07STRING1 x07STRING2 x06STRING x08STRING>? t u < ;▌ < 7 44 5 z h0008 0058 x08STRING<= lx07STRING1lx07STRING2n x07ARGLIST lx07STRING1lx07STRING2n x07STRING1 x07STRING2 x06STRING x09STRING<=? t u < ;▌ < 7 44 5 z h0008 0058 x08STRING>= lx07STRING1lx07STRING2n x07ARGLIST lx07STRING1lx07STRING2n x07STRING1 x07STRING2 x06STRING x09STRING>=? t u < ;▌ < 7 44 5 z h0008 005B x08STRING/= lx07STRING1lx07STRING2n x07ARGLIST lx07STRING1lx07STRING2n x07STRING1 x07STRING2 x06STRING x08STRING=? t u < ;▌ < 7 44 4 ê; z h0008 0058 x0CSTRING-LESSP lx07STRING1lx07STRING2n x07ARGLIST lx07STRING1lx07STRING2n x07STRING1 x07STRING2 x06STRING x0BSTRING-CI<? t u < ;▌ < 7 44 5 z h0008 0058 x0FSTRING-GREATERP lx07STRING1lx07STRING2n x07ARGLIST lx07STRING1lx07STRING2n x07STRING1 x07STRING2 x06STRING x0BSTRING-CI>? t u < ;▌ < 7 44 5 z h0008 0058 x13STRING-NOT-GREATERP lx07STRING1lx07STRING2n x07ARGLIST lx07STRING1lx07STRING2n x07STRING1 x07STRING2 x06STRING x0CSTRING-CI<=? t u < ;▌ < 7 44 5 z h0008 0058 x10STRING-NOT-LESSP lx07STRING1lx07STRING2n x07ARGLIST lx07STRING1lx07STRING2n x07STRING1 x07STRING2 x06STRING x0CSTRING-CI>=? t u < ;▌ < 7 44 5 z h0008 005B x10STRING-NOT-EQUAL lx07STRING1lx07STRING2n x07ARGLIST lx07STRING1lx07STRING2n x07STRING1 x07STRING2 x06STRING x0BSTRING-CI=? t u < ;▌ < 7 44 4 ê; z h000A 0095 x0D%%STRING-CASE lx07STRING1lx09CHAR-CASEn x07STRING1 x09CHAR-CASE x06STRING x06LENGTH lx06LENGTHn lx07STRING2n x07STRING2 x09%%DOTIMES t < ;▌44▌╔ ▌ < 6; < 5 ⁿ ╟ⁿ ⁿ4 ⁿ╚ⁿ ⁿ; z h0007 003D x0DSTRING-UPCASE lx06STRINGn x07ARGLIST lx06STRINGn x06STRING x0BCHAR-UPCASE x0D%%STRING-CASE t u < ;▌ < 7 5 z h0007 003D x0FSTRING-DOWNCASE lx06STRINGn x07ARGLIST lx06STRINGn x06STRING x0DCHAR-DOWNCASE x0D%%STRING-CASE t u < ;▌ < 7 5 z h0015 016F x1AEXPAND-MULTIPLE-VALUE-BIND x13MULTIPLE-VALUE-BIND x13CREATE-SCHEME-MACRO lx09VARIABLESlx04FORMlx05&BODYlx04BODYn x07ARGLIST lx0DDEFMACRO-FORMn x0DDEFMACRO-FORM x15%%CHECK-DEFMACRO-ARGS lx09VARIABLESn x09VARIABLES lx04FORMn x04FORM x05ERROR s0059The first argument to MULTIPLE-VALUE-BIND, ~S, is not a ~ list of variables. s0059The second argument to MULTIPLE-VALUE-BIND, ~S, is not a ~ form to evaluate. x03MAP x03LET lx03NILn x06FORMAT x05APPLY x0FERROR-PROCEDURE t < 4 u ;A▌ 4 @ A▌ @A▌ ïê"$ <└ ■ 4 ïê"$ <c ■ 4 @ O O <! A 4 O O O ; O ;0" 4 4 ;;0" 4 4 ;; z h0002 0020 x09*PACKAGE* x0C#!UNASSIGNED t┘ █ Zd" ; z h0006 0035 x0AIN-PACKAGE lx0CPACKAGE-NAMEn x07ARGLIST lx0CPACKAGE-NAMEn x0CPACKAGE-NAME x09*PACKAGE* t u < ;▌ < 7 ; z h0007 0042 x06EXPORT lx07SYMBOLSlx09&OPTIONALlx07PACKAGEn x07ARGLIST lx06EXPORTn lx07SYMBOLSlx02G0n x07SYMBOLS x02G0 t u ▌ < ■ = ;▌ < 7 @; z h0002 001D x09*MODULES* x0C#!UNASSIGNED t┘ █ Zd" ; z h0007 005C x07PROVIDE lx06MODULEn x07ARGLIST lx06MODULEn x06MODULE x09*MODULES* x0DSCHEME-MEMBER t u < ;▌ < 7 4 ê" O ; ; z h000F 00AC x07REQUIRE lx06MODULElx09&OPTIONALlx08PATHNAMEn x07ARGLIST lx07REQUIREn lx06MODULElx02G0n x06MODULE x02G0 x09*MODULES* x0DSCHEME-MEMBER x04LOAD x05ERROR s0024The module ~A has not been provided. x06FORMAT x05APPLY x0FERROR-PROCEDURE t u ▌ < ■ = ;▌ < 7 @ 4 ê " " 5 < ■ 5 ; 0" 4 4 ;; z h0003 0027 x18LISP-IMPLEMENTATION-TYPE x07ARGLIST s002BPC Scheme Common Lisp Compatibility Package t u < ; < 7; z h0003 0027 x1BLISP-IMPLEMENTATION-VERSION x07ARGLIST s00041.09 t u < ; < 7; z h0003 0027 x0CMACHINE-TYPE x07ARGLIST s0011IBM PC compatible t u < ; < 7; z h0002 0027 x0FMACHINE-VERSION x07ARGLIST t u < ; < 7 ; z h0002 0027 x10MACHINE-INSTANCE x07ARGLIST t u < ; < 7 ; z h0003 0027 x0DSOFTWARE-TYPE x07ARGLIST s0006PC-DOS t u < ; < 7; z h0002 0027 x10SOFTWARE-VERSION x07ARGLIST t u < ; < 7 ; z h0003 0020 x0A*FEATURES* x0C#!UNASSIGNED lx13IEEE-FLOATING-POINTn t┘ █ Zd" ; z h0005 002F x08IDENTITY lx01Xn x07ARGLIST lx01Xn x01X t u < ;▌ < 7; z h000D 00DD x0DEXPAND-BOUNDP x06BOUNDP x13CREATE-SCHEME-MACRO lx05THINGn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x05QUOTE x05ERROR s0021Unable to translate BOUNDP of ~S. x0CFLUID-BOUND? x06FORMAT x05APPLY x0FERROR-PROCEDURE t < 4 u ;A 4 @ 0å ""Eê"@d"CÉê"<" ■ 4 CO O; 0" 4 4 ;; ê $ ï; ; z h0007 004F x10EXPAND-EVAL-WHEN x09EVAL-WHEN x13CREATE-SCHEME-MACRO lx09SITUATIONlx05&BODYlx04BODYn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x05BEGIN t < 4 u ;A 4 @ A O; z h0006 0025 x08FUNCTION lx01Xn x07ARGLIST x11DEFINE-INTEGRABLE lx0CNAMED-LAMBDAllx08FUNCTIONlx01Xnlx01Xn x12PCS*PRIMOP-HANDLER t u O u ; z h0011 016A x19%%DEFSTRUCT-INITIAL-SLOTS lx0DINITIAL-SLOTSn x0DINITIAL-SLOTS lx06RESULTn x06RESULT x08REVERSE! lx01Ln x01L x05ERROR s005CThe keyword ~S does not have a matching value ~ in a DEFSTRUCT constructor. x06LENGTH x05QUOTE c3A x06SUBSEQ x06FORMAT x05APPLY x0FERROR-PROCEDURE t < ; ▌▌ < 6 50 ;▌#▐ Aê""<╬ ■ @ 4 @ 0╥ " ! 4 ^ " @ d " C É " 8 ═ ╟ └"! 4 ╦ x O C O E=! ;;0≤ 4 4 ; ê $ ï; ; z h0006 006D x13%%DEFSTRUCT-SYNONYM x05QUOTE x0EPRIMOP-HANDLER x06DEFINE x0BCOPY-PRIMOP x06UNLESS t < ;O O O O O OOO OO O O OOO OO O ; z h0023 02AE x0B%%DEFSTRUCT lx04NAMElx05SLOTSlx07INCLUDElx09CONC-NAMElx0EPRINT-FUNCTIONn x04NAME x05SLOTS x07INCLUDE x09CONC-NAME x0EPRINT-FUNCTION x0FDEFSTRUCT-SLOTS x08REVERSE! x0DSYMBOL-APPEND x05MAKE- x11%%DEFSTRUCT-MAKE- lx0FDEFSTRUCT-SLOTSlx0BCONSTRUCTORlx14INTERNAL-CONSTRUCTORn x0BCONSTRUCTOR x14INTERNAL-CONSTRUCTOR x10DEFINE-STRUCTURE x05QUOTE llx05QUOTElx0FDEFSTRUCT-SLOTSnn x07PUTPROP x06DEFINE llx19%%DEFSTRUCT-INITIAL-SLOTSlx0DINITIAL-SLOTSnn x04CONS lx05&RESTlx0DINITIAL-SLOTSn x08DEFMACRO lx06RESULTn x06RESULT lx08SYNONYMSn x08SYNONYMS llx05QUOTElx0EPRINT-FUNCTIONnn x05NCONC x05BEGIN x08FOR-EACH s0001- x0EPRIMOP-HANDLER x13%%DEFSTRUCT-SYNONYM t < ;▌ "0 t q 4 4 4 ▌ $ <$╫6$4$"$$O$$ (O$($O$$ (O$($ $(O$$((O$($(O(( ,O(,(,O,, 0O,0,0O,,0O((,,O(,(, O,, 0O,0,0O,0,0O00 4O0404O0044O040O00 4O0404 O0404O040O00 O,,0O((,O$$(▌$("(%$ ▌ , <,y 6,,0q,0,=$(,",3,O,, 0O,0,0O00 4O0404 O004O,,00O00, ,0o, ( ,$0O00 4O440 4o 4, O,; < 4 ; 4 4 !4 ê" "4 O ; ; < 4 ; É" @ O ; z h0020 01F9 x10EXPAND-DEFSTRUCT x09DEFSTRUCT x13CREATE-SCHEME-MACRO lx0BDESCRIPTIONlx05&RESTlx05SLOTSn x07ARGLIST lx0DDEFMACRO-FORMn x0DDEFMACRO-FORM x15%%CHECK-DEFMACRO-ARGS lx0BDESCRIPTIONn x0BDESCRIPTION lx05SLOTSn x05SLOTS lx04NAMElx07INCLUDElx09CONC-NAMElx0EPRINT-FUNCTIONn x04NAME x07INCLUDE x09CONC-NAME x0EPRINT-FUNCTION x08FOR-EACH x05ERROR s0054The first argument to DEFSTRUCT, ~S, was not a ~ symbol or list. x0B%%DEFSTRUCT x06FORMAT x05APPLY x0FERROR-PROCEDURE lx06CLAUSEn x06CLAUSE lx05VALUEn x05VALUE x08:INCLUDE x0A:CONC-NAME x0F:PRINT-FUNCTION s002AThe DEFSTRUCT argument ~S is unrecognized. t < 4 u ;A▌ 4 @ A▌ ▌ ▌ $ É$ ($$(m $ 0S ("(+( @((, A,,, ( ( (<Æ 4 ( (<(M ■( ( 4 $ $ @$$Å$"$$ @$$( A((( 50" 4 4 ;;▌@ C ▌ e" ; e" ; e" ; < ■ 5 0" 4 4 ;; ê $ ï; ; z h0002 0053 x0C%%STRUCTUREP x0B#!STRUCTURE t < ; æ"8 ï"#@ ï"@ d "A; ; ; ; ; z h0007 005F x05TYPEP lx05THINGlx04TYPEn x07ARGLIST lx05THINGlx04TYPEn x05THING x04TYPE x04%TAG t u < ;▌ < 7 æ"%É" t d ; ; ; z h0004 0018 x11DEFINE-INTEGRABLE x07DOS-DIR x09DIRECTORY x12PCS*PRIMOP-HANDLER t O u ; z h0004 0018 x11DEFINE-INTEGRABLE x08IDENTITY x0ANAMESTRING x12PCS*PRIMOP-HANDLER t O u ; z h0009 005D x08TRUENAME lx05THINGn x07ARGLIST lx05THINGn x05THING x0COUTPUT-PORT? s000E#<Output Port> x0BINPUT-PORT? s000D#<Input Port> t u < ;▌ < 7 4 "; 4 ";; z h0005 002F x09PATHNAMEP lx05THINGn x07ARGLIST lx05THINGn x05THING t u < ;▌ < 7 ; z h0006 004A x0APROBE-FILE lx04FILEn x07ARGLIST lx04FILEn x04FILE x07DOS-DIR t u < ;▌ < 7 4 " @; ; z h0000 0006 t ╡; z h0004 0019 s0023 Common Lisp Compatibility Package x1BLISP-IMPLEMENTATION-VERSION s0013 9 September 1990 x07WRITELN t 4 5 z h0002 0009 s0025(C) Copyright 1990 by Carl W. Hoffman x07WRITELN t 5 z h0002 0009 s001E All Rights Reserved. x07WRITELN t 5 z h0005 003C x0DSYMBOL-APPEND x0DSTRING-APPEND x06STRING x06MAPCAR x05APPLY t < ; 4 4 ╦; z h0016 01F2 x15%%CHECK-DEFMACRO-ARGS lx07PATTERNlx04FORMn x07PATTERN x04FORM lx09OPTIONAL?lx05REST?n x09OPTIONAL? x05REST? lx08PATTERNLlx05FORMLn x08PATTERNL x05FORML x05ERROR s003CThe form ~S has more arguments than the DEFMACRO pattern ~S. x06&WHOLE x0C&ENVIRONMENT x09&OPTIONAL x02#T x0DSCHEME-MEMBER lx05&RESTlx05&BODYn s0058The form ~S has fewer arguments than the DEFMACRO ~ pattern ~S x06FORMAT x05APPLY x0FERROR-PROCEDURE t < ;▌▌ < 7 0 ;▌ ê " " ê ê " ê " ê ê # # ê " & < ■ 4 @ d"!@A@A!╖ d"!@A@A!è d"@A g 4 " > ê" <r ■ 4@A @ A =!¬■ ;;0≤ 4 4 ;0" 4 4 ;; z h0026 041F x1D%%CONSTRUCT-DEFMACRO-BINDINGS lx03BVLn x03BVL lx09OPTIONAL?lx05REST?lx06RESULTn x09OPTIONAL? x05REST? x06RESULT x08REVERSE! lx04VARLn x04VARL x06&WHOLE x05ERROR s0024No tokens follow the &WHOLE keyword. lx13DEFMACRO-WHOLE-FORMn x0C&ENVIRONMENT lx03NILn s0056The additional tokens ~S follow ~ a &REST or &BODY variable. x09&OPTIONAL s002AThe &OPTIONAL keyword appears twice in ~S. x02#T s002DNo tokens follow the &OPTIONAL keyword in ~S. x0DSCHEME-MEMBER lx05&RESTlx05&BODYn x05&REST s0026No variable follows the &REST keyword. s0026No variable follows the &BODY keyword. lx0DDEFMACRO-FORMn llx03NOTllx04NULLlx0DDEFMACRO-FORMnnn llx03POPlx0DDEFMACRO-FORMnn lx04NULLlx0DDEFMACRO-FORMn x02IF x03POP x03CAR lx0DDEFMACRO-FORMn lx0DDEFMACRO-FORMn x06FORMAT x05APPLY x0FERROR-PROCEDURE t < ; ▌▌ < 650 ;▌ #î @ d " T A ê " < h■ 4 @ A @ O O ! d " , @ A @ O O !π " < ∩■ 4 d " W " < æ■ 4 A ê " < 4■ 4 !] 4 # x @ A ê " ; d " < ª■ 4 < ]■ 4 @ O O !╩ # û 0 " I " I O O 0╧ " + @ C O O OO O # A " !O O O O - A " "O O O O A=!h² ;;#0≤ $ 4% 4 ; ê $ ï; ; ê $ ï; ;#0" $ 4% 4 ;;#0" $ 4% 4 ;;#0" $ 4% 4 ;;#0" $ 4% 4 ;;#0" $ 4% 4 ;; z h0003 0020 x11*INCLUDE-ARGLIST* x0C#!UNASSIGNED x02#T t┘ █ Zd" ; z h0024 0241 x0FEXPAND-DEFMACRO x08DEFMACRO x13CREATE-SCHEME-MACRO lx04NAMElx03BVLlx05&BODYlx04BODYn x07ARGLIST lx0DDEFMACRO-FORMn x0DDEFMACRO-FORM x15%%CHECK-DEFMACRO-ARGS lx04NAMEn x04NAME lx03BVLn x03BVL lx04BODYn x04BODY x05ERROR s0035The first argument to DEFMACRO, ~S, was not a symbol. s0034The second argument to DEFMACRO, ~S, was not a list. lx03NILn x0DSYMBOL-APPEND x07EXPAND- lx13DEFMACRO-WHOLE-FORMn x05QUOTE lx0DDEFMACRO-FORMn x1D%%CONSTRUCT-DEFMACRO-BINDINGS x0BSCHEME-LET* llx0DDEFMACRO-FORMllx03CDRlx13DEFMACRO-WHOLE-FORMnnn x0ASCHEME-LET x06DEFINE x05MACRO x11*INCLUDE-ARGLIST* llx05QUOTElx07ARGLISTnn x07PUTPROP x05PROG2 x06FORMAT x05APPLY x0FERROR-PROCEDURE t < 4 u ;A▌ 4 @ A▌ @A▌ ▌ Éê"$ <ì■ 4 0W ê"<■ 4 " @Å" @ A 4 O O $O $ $O $$O$$ $ 4 $ ("(, O($,,O(,(O(( ( O ($O $ $O $ O O O O $ O $ $ O $ $ "$2$ O$$ (O$($( O(( ,O(,(, O((,O$$(( O$($O$$ O $O O ;!0" " 4# 4 ;; ê $ ï; ;!0" " 4# 4 ;; z h0002 001F x10%%CONSTRUCT-SETQ x04SET! t < ;O O O ; z h0021 02D4 x10%%CONSTRUCT-SETF lx05PLACElx05VALUEn x05PLACE x05VALUE x04SET! x05FLUID x0DSCHEME-MEMBER lx03CARlx05FIRSTn x06RPLACA lx03CDRlx04RESTn x06RPLACD lx04CADRlx06SECONDn x03CDR x04CDDR lx04CHARlx0ASTRING-REFn x0BSTRING-SET! lx05SVREFlx0AVECTOR-REFn x0BVECTOR-SET! x04AREF x0B%%SETF-AREF lx03GETlx07GETPROPn x07PUTPROP x0EMACRO-FUNCTION llx05QUOTElx09PCS*MACROnn x0EPRIMOP-HANDLER llx05QUOTElx12PCS*PRIMOP-HANDLERnn x12PCS*PRIMOP-HANDLER x05ERROR s0031The first argument to SETF, ~S, was unrecognized. s0039The first argument to SETF, ~S, was not a symbol or form. x06FORMAT x05APPLY x0FERROR-PROCEDURE t < ;▌ É " O O O ; ï # ' @ CI d "O O O ; 4 "O O O ; 4 "O O O ; 4 "!O O O O O ; d "!O O O O O ; 4 " O O O O ; 4 " O O O O ; d " O O O O ; 4 " O O O O ; d " O O O ; d " O O O ; t "O O O ; < I ■ 5 < ■ 5 0" 4 4 ;; 0" 4 4 ;; z h0010 010F x15%%CONSTRUCT-SETQ-SETF lx0BCONSTRUCTORlx08VARIABLElx05VALUElx0DVARS-AND-VALSn x0BCONSTRUCTOR x08VARIABLE x05VALUE x0DVARS-AND-VALS x04SET! lx06RESULTn x06RESULT x08REVERSE! x05BEGIN x05ERROR s0063The last variable in a SETQ or SETF form, ~S, ~ doesn't have a matching value. x06FORMAT x05APPLY x0FERROR-PROCEDURE t < ;▌ "D O OO o▌ < 6 4 O ; 5 0 ; "XAê" <K ■ @ 4 @C 4 O E ó ;; 0≤ 4 4 ; z h0008 0068 x0BEXPAND-SETQ x04SETQ x13CREATE-SCHEME-MACRO lx08VARIABLElx05VALUElx05&RESTlx0DVARS-AND-VALSn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x10%%CONSTRUCT-SETQ x15%%CONSTRUCT-SETQ-SETF t < 4 u ;A 4 @ A @A ( (5 z h0008 0068 x0BEXPAND-SETF x04SETF x13CREATE-SCHEME-MACRO lx05PLACElx05VALUElx05&RESTlx0FPLACES-AND-VALSn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x10%%CONSTRUCT-SETF x15%%CONSTRUCT-SETQ-SETF t < 4 u ;A 4 @ A @A ( (5 z h0008 0069 x0BEXPAND-PUSH x04PUSH x13CREATE-SCHEME-MACRO lx04ITEMlx05PLACEn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x04CONS x04SETF t < 4 u ;A 4 @ A @O O OO OO; z h0008 0069 x0EEXPAND-PUSHNEW x07PUSHNEW x13CREATE-SCHEME-MACRO lx04ITEMlx05PLACEn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x06ADJOIN x04SETF t < 4 u ;A 4 @ A @O O OO OO; z h000A 0070 x0AEXPAND-POP x03POP x13CREATE-SCHEME-MACRO lx05PLACEn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x03CAR x03CDR x04SETF x05PROG1 t < 4 u ;A 4 @ O OO OO O OO O O; z h0009 007C x0BEXPAND-INCF x04INCF x13CREATE-SCHEME-MACRO lx05PLACElx09&OPTIONALlx06AMOUNTn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x01+ x021+ x04SETF t < 4 u ;A 4 @ A @ "O O O O OO O O; z h0009 007C x0BEXPAND-DECF x04DECF x13CREATE-SCHEME-MACRO lx05PLACElx09&OPTIONALlx06AMOUNTn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x01- x021- x04SETF t < 4 u ;A 4 @ A @ "O O O O OO O O; z h0006 0039 x0EEXPAND-COMMENT x07COMMENT x13CREATE-SCHEME-MACRO lx05&BODYlx06IGNOREn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS t < 4 u ;A 4 ; z h0006 004C x0EEXPAND-FUNCALL x07FUNCALL x13CREATE-SCHEME-MACRO lx03FCNlx05&RESTlx09ARGUMENTSn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS t < 4 u ;A 4 @ A O ; z h0019 01BC x0DEXPAND-DOLIST x06DOLIST x13CREATE-SCHEME-MACRO lx08VAR-LISTlx05&BODYlx04BODYn x07ARGLIST lx0DDEFMACRO-FORMn x0DDEFMACRO-FORM x15%%CHECK-DEFMACRO-ARGS lx08VAR-LISTn x08VAR-LIST lx04BODYn x04BODY x06LENGTH x05ERROR x03BVL s009CThe first argument to DOLIST was ~S, which does not match ~ the pattern (VAR LISTFORM) or ~ the pattern (VAR LISTFORM RESULTFORM). s002BThe binding variable, ~S, was not a symbol. x06LAMBDA x08FOR-EACH lx03NILn x03NIL x05BLOCK x06FORMAT x05APPLY x0FERROR-PROCEDURE t < 4 u ;A▌ 4 @ A▌ ▌ 0E "' 4 ]" 4 `ê" <▄ ■ 4 @ C I É ê " $ < p ■ 4 O $ O $$O $ O$ O $$O $ $ "$ (O$(O$$ O( O$$((O$($ $O$$ O $$O $ $O$ ;0" 4 4 ;;0" 4 4 ;; ê $ ï; ; z h0004 0053 x09%%DOTIMES lx05THUNKlx05COUNTn x05THUNK x05COUNT t < ;▌ < 7 0 ; ` ê"4 Q ▌ ; z h0019 01DB x0EEXPAND-DOTIMES x07DOTIMES x13CREATE-SCHEME-MACRO lx07PATTERNlx05&BODYlx04BODYn x07ARGLIST lx0DDEFMACRO-FORMn x0DDEFMACRO-FORM x15%%CHECK-DEFMACRO-ARGS lx07PATTERNn x07PATTERN lx04BODYn x04BODY x06LENGTH x05ERROR x03BVL s009FThe first argument to DOTIMES was ~S, which does not match ~ the pattern (VAR COUNTFORM) or ~ the pattern (VAR COUNTFORM RESULTFORM). s002BThe binding variable, ~S, was not a symbol. x06LAMBDA x09%%DOTIMES x03LET x03NIL x05BLOCK x06FORMAT x05APPLY x0FERROR-PROCEDURE t < 4 u ;A▌ 4 @ A▌ ▌ 0d "' 4 ]" 4 `ê" <√ ■ 4 @ C I É ê " $ < Å ■ 4 " BO O O O$ ( O$$((O$($O( O$$((O$($O( O$$(O $$O $ !O $ O $$O $ O$ O $$O $ O $O $ $O$ ;0" 4 4 ;;0" 4 4 ;; ê $ ï; ; z h0008 0047 x0BMACROEXPAND lx04FORMlx09&OPTIONALlx0BENVIRONMENTn x07ARGLIST lx0BMACROEXPANDn lx04FORMlx02G0n x04FORM x02G0 x0CEXPAND-MACRO t u ▌ < ■ = ;▌ < 7 @5 z h0008 0047 x0DMACROEXPAND-1 lx04FORMlx09&OPTIONALlx0BENVIRONMENTn x07ARGLIST lx0DMACROEXPAND-1n lx04FORMlx02G0n x04FORM x02G0 x0CEXPAND-MACRO t u ▌ < ■ = ;▌ < 7 @5 z h0024 054D x17%%CONSTRUCT-LAMBDA-ARGS lx03BVLn x03BVL lx09OPTIONAL?lx05REST?lx04AUX?lx04TAILlx06RESULTn x09OPTIONAL? x05REST? x04AUX? x04TAIL x06RESULT x08FOR-EACH lx04VARLn x04VARL lx03VARn x03VAR lx09&OPTIONALlx05&RESTlx04&AUXn x05ERROR s0074The token following &AUX, ~S, is an &keyword, which ~ cannot be the name of a local variable. x06LENGTH s0054The &AUX declaration, ~S, ~ is not a list of length 2. s006EThe token following the &AUX keyword, ~S, ~ was not a symbol or list of length 2. x04&AUX x02#T s0027Additional tokens follow &REST variable x09&OPTIONAL s001F&OPTIONAL keyword appears twice s0022No tokens follow &OPTIONAL keyword x06GENSYM x05&REST s001ENo tokens follow &REST keyword s0022&REST declaration must be a symbol s0055The &OPTIONAL declaration, ~S, was not a list ~ of length 2. s002E&OPTIONAL declaration must be symbols or lists s002ERequired variable declarations must be symbols x06FORMAT x05APPLY x0FERROR-PROCEDURE t < ; ▌▌ < > 6 < 6 ; < 4 ; O ;0 ;▌ #╢ @▌ # ⌐ g " < æ■ 4 É $o ï"@ 4^ ê"< ■ 4 ' <┼■ 4 !ε d " !┘ " < P■ 4 d " h " < ≥■ 4 A ê " < ò■ 4 4 !B d # { @ A ê " < ■ 4 @ É ê " < ⌐■ 4 ê " !║ # É $o ï"@ 4^ ê"<■ 4 ' <┴ ■ 4 4 É " O < Q ■ 4 = A=!>² ;;!0≤ " 4# 4 ;!0" " 4# 4 ;;!0" " 4# 4 ;;!0" " 4# 4 ;;!0" " 4# 4 ;;!0" " 4# 4 ;;!0" " 4# 4 ;;!0" " 4# 4 ;;!0" " 4# 4 ;;!0" " 4# 4 ;;!0" " 4# 4 ;; z h0012 015B x1B%%CONSTRUCT-LAMBDA-BINDINGS lx03BVLlx04TAILn x03BVL x04TAIL lx09OPTIONAL?lx05REST?lx04AUX?lx06RESULTn x09OPTIONAL? x05REST? x04AUX? x06RESULT x08REVERSE! lx03NILn x04&AUX x02#T x09&OPTIONAL x05&REST x03POP x03CAR x02IF t < ; ▌▌ < 6 50 ; #@ " ! É " O O !╤ d " !╝ d " !º d " !Æ " " O O O o ê $dA" É"O OO O /@O OC O O O O O OOA!°■ ; z h0015 01BC x12%%CONSTRUCT-LAMBDA lx0ABLOCK-NAMElx03BVLlx04BODYn x0ABLOCK-NAME x03BVL x04BODY lx13DOCUMENTATION-SEEN?n x13DOCUMENTATION-SEEN? lx03NILn x17%%CONSTRUCT-LAMBDA-ARGS x1B%%CONSTRUCT-LAMBDA-BINDINGS x04LET* x05BLOCK lx0FRETURN-FROM-NILn x0FRETURN-FROM-NIL x07DECLARE x05ERROR s0031Only one documentation string allowed per LAMBDA. x02#T x06FORMAT x05APPLY x0FERROR-PROCEDURE t < ; ▌ ▌ <É 6=ê"4 É" ªA 4 " O O O " O O O O ;▌ 0 ; %│ ï#Ü @ d " @ A r Å " V A ê " 4 " < V ■ 4 @ A 4 4!C ;;0≤ 4 4 ; z h0012 0170 x07%%DEFUN lx04NAMElx03BVLlx07DEFINERlx08ARGLIST?n x04NAME x03BVL x07DEFINER x08ARGLIST? x05ERROR s0032The first argument to DEFUN, ~A, was not a symbol. s0031The second argument to DEFUN, ~A, was not a list. x12%%CONSTRUCT-LAMBDA x11*INCLUDE-ARGLIST* x05QUOTE llx05QUOTElx07ARGLISTnn x07PUTPROP x05BEGIN x06FORMAT x05APPLY x0FERROR-PROCEDURE t < ;▌ É ê " 0 < ■ 4 0─ ê " < à ■ 4 4@ $O $ A$O $$O $ " " > O $ O $ $O$$ ( O$($( O$$(O $$ O $ O$ O $$O$ ; ;0" 4 4 ;; ê $ ï; ;0" 4 4 ;; z h0009 006E x0CEXPAND-DEFUN x05DEFUN x13CREATE-SCHEME-MACRO lx04NAMElx03BVLlx05&BODYlx04BODYn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x07%%DEFUN x06DEFINE x02#T t < 4 u ;A 4 @ A @A ( (5 z h0009 0068 x13EXPAND-DEFUN-INLINE x0CDEFUN-INLINE x13CREATE-SCHEME-MACRO lx04NAMElx03BVLlx05&BODYlx04BODYn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x07%%DEFUN x11DEFINE-INTEGRABLE x02#T t < 4 u ;A 4 @ A @A 5 z h0008 0068 x11EXPAND-DEFUN-CLCP x0ADEFUN-CLCP x13CREATE-SCHEME-MACRO lx04NAMElx03BVLlx05&BODYlx04BODYn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x07%%DEFUN x06DEFINE t < 4 u ;A 4 @ A @A 5 z h0008 0068 x18EXPAND-DEFUN-CLCP-INLINE x11DEFUN-CLCP-INLINE x13CREATE-SCHEME-MACRO lx04NAMElx03BVLlx05&BODYlx04BODYn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x07%%DEFUN x11DEFINE-INTEGRABLE t < 4 u ;A 4 @ A @A 5 z h0004 0060 x14%%MAKE-FLET-BINDINGS x03MAP x12%%CONSTRUCT-LAMBDA x06LAMBDA t < ; < 4 O O;@CE 4O O O ; z h0008 0056 x0BEXPAND-FLET x04FLET x13CREATE-SCHEME-MACRO lx0BDEFINITIONSlx05&BODYlx04BODYn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x14%%MAKE-FLET-BINDINGS x03LET t < 4 u ;A 4 @ A 5 z h0008 0056 x0DEXPAND-LABELS x06LABELS x13CREATE-SCHEME-MACRO lx0BDEFINITIONSlx05&BODYlx04BODYn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x14%%MAKE-FLET-BINDINGS x06LETREC t < 4 u ;A 4 @ A 5 z h0004 0018 x11DEFINE-INTEGRABLE lx05QUOTEllx09&OPTIONALlx05&RESTlx04&KEYlx11&ALLOW-OTHER-KEYSlx04&AUXlx05&BODYlx06&WHOLElx0C&ENVIRONMENTnn x14LAMBDA-LIST-KEYWORDS x12PCS*PRIMOP-HANDLER t O u ; z h0003 0018 x11DEFINE-INTEGRABLE x17LAMBDA-PARAMETERS-LIMIT x12PCS*PRIMOP-HANDLER t 2O u ; z h0004 0038 x07ARGLIST lx06SYMBOLn lx06SYMBOLn x06SYMBOL t u < ;▌ < 7 t ; z h0017 0179 x11%%DESCRIBE-SYMBOL lx06SYMBOLn x06SYMBOL x07ARGLIST x17USER-GLOBAL-ENVIRONMENT x14ENVIRONMENT-BINDINGS x18USER-INITIAL-ENVIRONMENT x0EMACRO-FUNCTION x0EPRIMOP-HANDLER lx07ARGLISTlx0EGLOBAL-BINDINGlx0FINITIAL-BINDINGlx0EMACRO-FUNCTIONlx0EPRIMOP-HANDLERn x0EGLOBAL-BINDING x0FINITIAL-BINDING x06FORMAT x02#T s0011~&~S is a symbol. s0018~& Global binding: ~S s0018~& Initial binding: ~S s0018~& Arglist: ~S s0018~& Macro definition: ~S s0018~& Primop handler: ~S lx07ARGLISTlx09PCS*MACROlx12PCS*PRIMOP-HANDLERn s0015~& Other properties: s000E~& ~S -> ~S t < ;▌ 44l4l44 ▌ 4 " $ A $ 4 " $ A $ 4 " 4 " 4 " 4 < 7 v 0 ; " W@ gê"A ê" 4 C 4 E ú ; z h001F 01CC x14%%DESCRIBE-STRUCTURE lx09STRUCTURElx05CLASSn x09STRUCTURE x05CLASS x0FDEFSTRUCT-SLOTS lx05SLOTSlx10STRUCTURE-LENGTHn x05SLOTS x10STRUCTURE-LENGTH x06FORMAT x02#T s0036~S is an object of type ~A with the following slots:~% lx0FRETURN-FROM-NILn x0FRETURN-FROM-NIL lx01Ilx01Ln x01I x01L x05ERROR s002FStructure template has more slots than instance s002FStructure instance has more slots than template lx04SLOTn x04SLOT lx0BSLOT-LENGTHn x0BSLOT-LENGTH s0005 ~A: x02G0 s0004~S~% x05APPLY x0FERROR-PROCEDURE x09%%DOTIMES x0AWRITE-CHAR c20 t < ;▌ t ⌐▌ 4 < 7▌ 0 ;▌ ^ " 4 " < ╢ ■ 4 4 ê " < ▌ ■ 4 @ ▌ ═╞▌ 4<g 6== 4 QA=!% ;0≤ 4 4 ; < R b 5 50" 4 4 ;; z h0004 0021 x0F%%DESCRIBE-LIST x06FORMAT x02#T s000F~&~S is a list. t < ; 5 z h0004 0029 x11%%DESCRIBE-VECTOR x06FORMAT x02#T s001E~&~S is a vector of length ~D. t < ; ⌐ 5 z h0006 0044 x16%%DESCRIBE-ENVIRONMENT x02#T s0028~&~S is an environment with ~D bindings. x14ENVIRONMENT-BINDINGS x06LENGTH x06FORMAT t < ; 44 5 z h000B 00CA x08DESCRIBE x0C%%STRUCTUREP x14%%DESCRIBE-STRUCTURE x11%%DESCRIBE-SYMBOL x0F%%DESCRIBE-LIST x11%%DESCRIBE-VECTOR x16%%DESCRIBE-ENVIRONMENT s0010Cannot describe x07%%WRITE x02#T x19*THE-NON-PRINTING-OBJECT* t < ;4 " 4 !~ É " 4 d 0^ " 4 D æ " 4 . ¥ " 4 │ 4 ; ê $ ï; ; z h0007 00A0 x11DISPLAY-SUBSTRING lx0ARAW-STREAMlx06STRINGlx05STARTlx03ENDn x0ARAW-STREAM x06STRING x05START x03END x06LENGTH t < ;▌ ê"ê" │;$ $ 4 < 70 ; ^ ê"╟ │ Q ß ; z h0014 0116 x1EMAKE-ENCAPSULATED-INPUT-STREAM lx0ARAW-STREAMn x0ARAW-STREAM lx04UNCHn x04UNCH lx04ARGSn x04ARGS x09DIRECTION x05INPUT x05CLOSE x10CLOSE-INPUT-PORT x09READ-CHAR x10SCHEME-READ-CHAR x0CUN-READ-CHAR x05ERROR s002EAttempt to UNREAD-CHAR twice on the stream ~S. x09PEEK-CHAR x06FORMAT x05APPLY x0FERROR-PROCEDURE t < ;▌▌ < ■;▌ e"; e" 5 e"" ; 5 e"7"$ <S ■ 4 @ ; e" $ 4; ; ;0" 4 4 ;; z h000D 009B x1FMAKE-ENCAPSULATED-OUTPUT-STREAM lx0ARAW-STREAMn x0ARAW-STREAM x09DIRECTION x06OUTPUT x05CLOSE x11CLOSE-OUTPUT-PORT x0AFRESH-LINE x11SCHEME-FRESH-LINE x0AWRITE-CHAR x0CWRITE-STRING x11DISPLAY-SUBSTRING x05APPLY t < ;▌ < ■; e"; e" 5 e" 5 e" @ │; e" 5 ; z h0007 003F x18MAKE-STRING-INPUT-STREAM lx06STRINGn x07ARGLIST lx06STRINGn x06STRING x11OPEN-INPUT-STRING x1EMAKE-ENCAPSULATED-INPUT-STREAM t u < ;▌ < 7 45 z h0012 0229 x19MAKE-STRING-OUTPUT-STREAM x07ARGLIST lx06BUFFERlx05INDEXn x06BUFFER x05INDEX lx12ASSURE-BUFFER-SIZEn x12ASSURE-BUFFER-SIZE x09DIRECTION x06OUTPUT x05CLOSE s0000 x10%%REPLACE-STRING x0AFRESH-LINE c0A x02#T x0AWRITE-CHAR x0CWRITE-STRING x06LENGTH t u < ; < 72╔ ▌ <ƒ▌ < ■; e"; e"@ ^" ; ╔ ( ( 4 ; e"Y \"Q ⁿ╟ⁿ ⁿ └ê", 4 ╚ Q; ; e"/ 4@╚ Q ; e#~ @C $ I $ $ 4 R 4 4 $P $ ; ;╞ P _"6 S ╔ ( ( 4 ; ; z h001B 0209 x17EXPAND-WITH-OPEN-STREAM x10WITH-OPEN-STREAM x13CREATE-SCHEME-MACRO lx12STREAM-DESCRIPTIONlx05&BODYlx04BODYn x07ARGLIST lx0DDEFMACRO-FORMn x0DDEFMACRO-FORM x15%%CHECK-DEFMACRO-ARGS lx12STREAM-DESCRIPTIONn x12STREAM-DESCRIPTION lx04BODYn x04BODY x05ERROR s0061The first argument to WITH-OPEN-STREAM must be ~ a pattern of the form (VAR STREAM). s0052The stream variable argument to WITH-OPEN-STREAM ~ is not a symbol. x0DSCHEME-MEMBER lx10*STANDARD-INPUT*lx10STANDARD-OUTPUT*n x06.TEMP. x04SETQ x05PROGN x05CLOSE lx06.TEMP.n x05PROG1 x03LET x06FORMAT x05APPLY x0FERROR-PROCEDURE t < 4 u ;A▌ 4 @ A▌ ▌ 0Æ " A" Eêê" <?■ 4 @ Éê" <Θ ■ 4 4 "zO O O C O O O $ O $$O$$ (O$($(,O((,,O(,(O(( O$$(O $$O $ O O O O ; CO O O O O $O $ O O O O O O ;0" 4 4 ;;0" 4 4 ;; ê $ ï; ; z h0014 015B x1DEXPAND-WITH-INPUT-FROM-STRING x16WITH-INPUT-FROM-STRING x13CREATE-SCHEME-MACRO lx12STREAM-DESCRIPTIONlx05&BODYlx04BODYn x07ARGLIST lx0DDEFMACRO-FORMn x0DDEFMACRO-FORM x15%%CHECK-DEFMACRO-ARGS lx12STREAM-DESCRIPTIONn x12STREAM-DESCRIPTION lx04BODYn x04BODY x05ERROR s0067The first argument to WITH-INPUT-FROM-STRING must be ~ a pattern of the form (VAR STRING). s0058The stream variable argument to WITH-INPUT-FROM-STRING ~ is not a symbol. x18MAKE-STRING-INPUT-STREAM x10WITH-OPEN-STREAM x06FORMAT x05APPLY x0FERROR-PROCEDURE t < 4 u ;A▌ 4 @ A▌ ▌ 0Σ " A" Eêê" <æ ■ 4 @ C É ê " < 3 ■ 4O O O O O O ;0" 4 4 ;;0" 4 4 ;; ê $ ï; ; z h0016 01AC x1CEXPAND-WITH-OUTPUT-TO-STRING x15WITH-OUTPUT-TO-STRING x13CREATE-SCHEME-MACRO lx12STREAM-DESCRIPTIONlx05&BODYlx04BODYn x07ARGLIST lx0DDEFMACRO-FORMn x0DDEFMACRO-FORM x15%%CHECK-DEFMACRO-ARGS lx12STREAM-DESCRIPTIONn x12STREAM-DESCRIPTION lx04BODYn x04BODY x05ERROR s006FThe first argument to WITH-OUTPUT-TO-STRING must be ~ a pattern of the form (VAR) or (VAR STRING). s0053The two-argument form of WITH-OUTPUT-TO-STRING is not ~ yet supported. s0057The stream variable argument to WITH-OUTPUT-TO-STRING ~ is not a symbol. llx19MAKE-STRING-OUTPUT-STREAMnn x18GET-OUTPUT-STREAM-STRING x10WITH-OPEN-STREAM x06FORMAT x05APPLY x0FERROR-PROCEDURE t < 4 u ;A▌ 4 @ A▌ ▌ 05 " Aê $ Eê ê" <┌ ■ 4 A" <ì ■ 4 @ Éê" <7 ■ 4 O O O O q O O ;0" 4 4 ;;0" 4 4 ;;0" 4 4 ;; ê $ ï; ; z h0003 0020 x10*STANDARD-INPUT* x0C#!UNASSIGNED x0AINPUT-PORT t┘ █ Zd" ; z h0003 0020 x11*STANDARD-OUTPUT* x0C#!UNASSIGNED x0BOUTPUT-PORT t┘ █ Zd" ; z h0003 0020 x0E*ERROR-OUTPUT* x0C#!UNASSIGNED x0BOUTPUT-PORT t┘ █ Zd" ; z h0003 0020 x0A*QUERY-IO* x0C#!UNASSIGNED x07CONSOLE t┘ █ Zd" ; z h0003 0020 x0A*DEBUG-IO* x0C#!UNASSIGNED x07CONSOLE t┘ █ Zd" ; z h0003 0020 x0D*TERMINAL-IO* x0C#!UNASSIGNED x07CONSOLE t┘ █ Zd" ; z h0007 0072 x07STREAMP lx06OBJECTn x07ARGLIST lx06OBJECTn x06OBJECT x09DIRECTION x02#T t u < ;▌ < 7ê $ 8 î $)ì" 4 "; ; ; ; ; z h000C 0094 x0CCHECK-STREAM lx09PROCEDURElx06STREAMn x07ARGLIST lx09PROCEDURElx06STREAMn x09PROCEDURE x06STREAM x07STREAMP x05ERROR s0027The argument to ~A, ~S, is not a stream x06FORMAT x05APPLY x0FERROR-PROCEDURE t u < ;▌ < 7 4 ê" < ■ 5 ; 0" 4 4 ;; z h000A 008E x0EINPUT-STREAM-P lx06STREAMn x07ARGLIST lx06STREAMn x06STREAM x0CCHECK-STREAM x0BINPUT-PORT? x09DIRECTION lx05INPUTlx0DBIDIRECTIONALn x02#T t u < ;▌ < 7 4 ê $ C4 $+ì" 4 g" ; ; ; ; ; z h000A 008E x0FOUTPUT-STREAM-P lx06STREAMn x07ARGLIST lx06STREAMn x06STREAM x0CCHECK-STREAM x0COUTPUT-PORT? x09DIRECTION lx06OUTPUTlx0DBIDIRECTIONALn x02#T t u < ;▌ < 7 4 ê $ C4 $+ì" 4 g" ; ; ; ; ; z h000C 00E6 x12CHECK-INPUT-STREAM lx09PROCEDURElx06STREAMn x09PROCEDURE x06STREAM x07STREAMP x0EINPUT-STREAM-P x05ERROR s002FThe argument to ~A, ~S, is not an input stream. s0030The stream ~S does not support the ~A operation. x06FORMAT x05APPLY x0FERROR-PROCEDURE t < ² ; ▌@ 4 " 4 ê"<m ■ 4"ìê" < ■ 5 ; 0" 4 4 ;; 0" 4 4 ;; z h000C 00E6 x13CHECK-OUTPUT-STREAM lx09PROCEDURElx06STREAMn x09PROCEDURE x06STREAM x07STREAMP x0FOUTPUT-STREAM-P x05ERROR s0030The argument to ~A, ~S, is not an output stream. s0030The stream ~S does not support the ~A operation. x06FORMAT x05APPLY x0FERROR-PROCEDURE t < ² ; ▌@ 4 " 4 ê"<m ■ 4"ìê" < ■ 5 ; 0" 4 4 ;; 0" 4 4 ;; z h000A 0081 x05CLOSE lx06STREAMn x07ARGLIST lx06STREAMn x06STREAM x0CCHECK-STREAM x0BINPUT-PORT? x10CLOSE-INPUT-PORT x0COUTPUT-PORT? x11CLOSE-OUTPUT-PORT t u < ;▌ < 7 4 4 " 5 4 " 5 5 z h0008 0045 x18GET-OUTPUT-STREAM-STRING lx14STRING-OUTPUT-STREAMn x07ARGLIST lx14STRING-OUTPUT-STREAMn x14STRING-OUTPUT-STREAM x13CHECK-OUTPUT-STREAM x02#T x05CLOSE t u < ;▌ < 7 45 z h000E 009C x09CHECK-EOF lx05THINGlx0CINPUT-STREAMlx0BEOF-ERROR-Plx09EOF-VALUEn x07ARGLIST lx05THINGlx0CINPUT-STREAMlx0BEOF-ERROR-Plx09EOF-VALUEn x05THING x0CINPUT-STREAM x0BEOF-ERROR-P x09EOF-VALUE x0BEOF-OBJECT? x05ERROR s0023EOF reached on the input stream ~S. x06FORMAT x05APPLY x0FERROR-PROCEDURE t u < ;▌ < 7 4 "!" < ■ 5 ;; 0" 4 4 ;; z h000C 00BE x09READ-CHAR lx09&OPTIONALlx0CINPUT-STREAMllx0BEOF-ERROR-Plx01Tnlx09EOF-VALUEn x07ARGLIST lx09READ-CHARn lx02G0n x02G0 x02#T x10*STANDARD-INPUT* x12CHECK-INPUT-STREAM x0BINPUT-PORT? x10SCHEME-READ-CHAR x09CHECK-EOF t u ▌ < = ;▌ < 7@ A " @ A @ ê" 4 4 " 4 4 $ $5 z h000F 00BB x0CUN-READ-CHAR lx04CHARlx09&OPTIONALlx0CINPUT-STREAMn x07ARGLIST lx0CUN-READ-CHARn lx04CHARlx02G0n x04CHAR x02G0 x10*STANDARD-INPUT* x05ERROR s002AThe value of CHAR, ~S, is not a character. x12CHECK-INPUT-STREAM x02#T x06FORMAT x05APPLY x0FERROR-PROCEDURE t u ▌ < ■ = ;▌ < 7 @ ê " £ ê " < - ■ 4 4 5 0" 4 4 ;; z h001A 0168 x09PEEK-CHAR lx09&OPTIONALlx09PEEK-TYPElx0CINPUT-STREAMllx0BEOF-ERROR-Plx01Tnlx09EOF-VALUEn x07ARGLIST lx09PEEK-CHARn lx02G0n x02G0 lx15RETURN-FROM-PEEK-CHARn x15RETURN-FROM-PEEK-CHAR lx09PEEK-TYPEn x09PEEK-TYPE lx0CINPUT-STREAMn x0CINPUT-STREAM x02#T lx0BEOF-ERROR-Pn x0BEOF-ERROR-P lx09EOF-VALUEn x09EOF-VALUE x10*STANDARD-INPUT* x12CHECK-INPUT-STREAM x03NIL x01T x09CHECK-EOF x0BEOF-OBJECT? x0DSCHEME-MEMBER lc20lc09lc0An x09READ-CHAR t u ▌ < = ;▌ < 7▌@ A ▌ @ A▌ "@A ▌ @▌ ê" 4 d ê" d ê"- d ê" d êê" <% 6 4 5 40 ;4 ê" 4 êê" 4 4 ─ ; z h000A 00AA x04READ lx09&OPTIONALlx0CINPUT-STREAMllx0BEOF-ERROR-Pllx05QUOTElx06SCHEMEnnlx09EOF-VALUEn x07ARGLIST lx04READn lx02G0n x02G0 x06SCHEME x0BSCHEME-READ x10*STANDARD-INPUT* x09CHECK-EOF t u ▌ < = ;▌ < 7@ A " @ A @ d" 5 ê" 4 5 z h000A 0074 x0AFRESH-LINE lx09&OPTIONALlx0DOUTPUT-STREAMn x07ARGLIST lx0AFRESH-LINEn lx02G0n x02G0 x11*STANDARD-OUTPUT* x13CHECK-OUTPUT-STREAM x0COUTPUT-PORT? x11SCHEME-FRESH-LINE t u ▌ < = ;▌ < 7@ ê " 4 4 " 5 5 z h000B 0079 x06TERPRI lx09&OPTIONALlx0DOUTPUT-STREAMn x07ARGLIST lx06TERPRIn lx02G0n x02G0 x11*STANDARD-OUTPUT* x13CHECK-OUTPUT-STREAM x0COUTPUT-PORT? x0AWRITE-CHAR c0A t u ▌ < = ;▌ < 7@ ê " 4 4 " ╡ 4 ; z h000E 00D6 x0AWRITE-CHAR lx04CHARlx09&OPTIONALlx06STREAMn x07ARGLIST lx0AWRITE-CHARn lx04CHARlx02G0n x04CHAR x02G0 x05ERROR s002AThe value of CHAR, ~S, is not a character. x13CHECK-OUTPUT-STREAM x0COUTPUT-PORT? x06FORMAT x05APPLY x0FERROR-PROCEDURE t u ▌ < ■ = ;▌ < 7 @ £ ê " < S ■ 4 4 " 4 ê " 4 │ ; 0" 4 4 ;; z h000A 00C8 x15WRITE-STRING-INTERNAL x05ERROR s0029The value of STRING, ~S, is not a string. x13CHECK-OUTPUT-STREAM x0CWRITE-STRING x0COUTPUT-PORT? x11DISPLAY-SUBSTRING x06FORMAT x05APPLY x0FERROR-PROCEDURE t < ; Åê"( <m ■ 4 4 "4 ê" 4 $ $4 ;0" 4 4 ;; z h0009 007E x13EXPAND-WRITE-STRING x0CWRITE-STRING x13CREATE-SCHEME-MACRO lx06STRINGlx09&OPTIONALlx06STREAMlx05&RESTlx08KEYWORDSn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x0EPARSE-KEYWORDS lx06:STARTlx04:ENDn x15WRITE-STRING-INTERNAL t < 4 u ;A 4 @ A @A 4 O O O ; z h000E 00B4 x0AWRITE-LINE lx06STRINGlx09&OPTIONALlx06STREAMn x07ARGLIST lx0AWRITE-LINEn lx06STRINGlx02G0n x06STRING x02G0 x05ERROR s0029The value of STRING, ~S, is not a string. x15WRITE-STRING-INTERNAL x06TERPRI x06FORMAT x05APPLY x0FERROR-PROCEDURE t u ▌ < ■ = ;▌ < 7 @ Å ê " < 1 ■ 4 4 4; 0" 4 4 ;; z h0036 05EE x07%%WRITE lx06OBJECTlx06STREAMlx06ESCAPElx06PRETTYn x06OBJECT x06STREAM x06ESCAPE x06PRETTY x0BOUTPUT-PORT x02PP x0C%%STRUCTUREP lx05CLASSn x05CLASS x0EPRINT-FUNCTION x04EVAL x0E*PRINT-ESCAPE* x15WRITE-STRING-INTERNAL s0002#< s0001> s0002#( s0001) x0AWRITE-CHAR c28 c29 x0COUTPUT-PORT? x0CSCHEME-WRITE x07DISPLAY x0ENUMBER->STRING lx03INTllx05RADIXlx01Dlx01Snn lx03FLOlx01Hn x0BEOF-OBJECT? s000D#<Scheme EOF> x0BINPUT-PORT? s0014#<Scheme input port> s0015#<Scheme output port> lx13WRITE-QUOTED-STRINGn x13WRITE-QUOTED-STRING c22 lx06STRINGn x06STRING lx06LENGTHn x06LENGTH c7C s0013#<CLCP unprintable> s0002() x09%%DOTIMES c5C lx0FRETURN-FROM-NILn x0FRETURN-FROM-NIL x02#T x0DSCHEME-MEMBER lc20lc09lc0Alc0Clc0Dn lx06STRINGlx0AQUOTE-CHARn x0AQUOTE-CHAR s0003 . c20 t < ;▌ ê""" 4 !7 4 ▌ #ï t 4 " $ 4 B 4 ═ 4 4 !éæ"8 4 <░6 4 !Bï", 4 <ö6 4 !4 "& " 4 !╒#╝ç"! 4 4 !æà"! 4 !h 4 " 4 !A 4 " 4 !4 " 4 !≤ <┌▌!" Å " 7 " "#4 4 !ó É # Ç ═ ▌$ % %╞ ▌& '$"$< $ <$√ 6$ $"$% "(4 $ $ <$y 6$ $ ! % 4 $ $== ) 4 = * 4= ; < '+ 5 %╟, └ ê " ( └ ê ê " ,4 5 ▌-. < '+ 5 %╟ 00 ê " 0 ê ê " ./5 ; ┼d; 015 ▌2%33 4 < 6 3 5 < %╞ + 5 %╟, └ ê " 3 └ ê ê " ,4 5 0 ; #î ïê":4 4 0╒· 4 d ê"5 4 @ 0î· A!m ; Æê"5 4 ⁿ ⁿ ⁿ 1=· <╡ ⌐ + 5 z h000C 009E x0CEXPAND-WRITE x05WRITE x13CREATE-SCHEME-MACRO lx06OBJECTlx05&RESTlx08KEYWORDSn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x0EPARSE-KEYWORDS lx07:STREAMlx07:ESCAPElx07:PRETTYn x0DSCHEME-MEMBER x07:ESCAPE x02#T x07%%WRITE t < 4 u ;A 4 @ A 4 @ 4 " C I O O O O O ; z h000D 00BB x19READ-FROM-STRING-INTERNAL lx06STRINGlx0BEOF-ERROR-Plx09EOF-VALUElx05STARTlx03ENDn x07ARGLIST lx06STRINGlx0BEOF-ERROR-Plx09EOF-VALUElx05STARTlx03ENDn x06STRING x0BEOF-ERROR-P x09EOF-VALUE x05START x03END x06LENGTH x06SUBSEQ x11OPEN-INPUT-STRING x04READ t u < ;▌ < 7 4 " \ ê " " \ ê ê " . $ $ 4 4 5 z h000A 00A1 x17EXPAND-READ-FROM-STRING x10READ-FROM-STRING x13CREATE-SCHEME-MACRO lx06STRINGlx09&OPTIONALllx0BEOF-ERROR-Plx01Tnlx09EOF-VALUElx05&RESTlx08KEYWORDSn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x02#T x0EPARSE-KEYWORDS lx06:STARTlx04:ENDn x19READ-FROM-STRING-INTERNAL t < 4 u ;A 4 @ A "@A @A 4 O O O O ; z h0001 000A x0A:DIRECTION t ; z h0001 000A x06:INPUT t ; z h0001 000A x07:OUTPUT t ; z h0021 032D x15EXPAND-WITH-OPEN-FILE x0EWITH-OPEN-FILE x13CREATE-SCHEME-MACRO lx0ADESCRIPTORlx05&BODYlx04BODYn x07ARGLIST lx0DDEFMACRO-FORMn x0DDEFMACRO-FORM x15%%CHECK-DEFMACRO-ARGS lx0ADESCRIPTORn x0ADESCRIPTOR lx04BODYn x04BODY x0A:DIRECTION x0DSCHEME-MEMBER lx06:INPUTlx07:OUTPUTn x05ERROR s0011Unknown direction s000CUnknown flag x06:INPUT x10*STANDARD-INPUT* s0056Can't bind *STANDARD-INPUT* to a file being ~ opened for output. x06LAMBDA x14WITH-INPUT-FROM-FILE x11*STANDARD-OUTPUT* x07:OUTPUT s0056Can't bind *STANDARD-OUTPUT* to a file being ~ opened for input. x13WITH-OUTPUT-TO-FILE x14CALL-WITH-INPUT-FILE x15CALL-WITH-OUTPUT-FILE s0012Shouldn't get here x06FORMAT x05APPLY x0FERROR-PROCEDURE t < 4 u ;A▌ 4 @ A▌ ▌ @ C I N $ E$$#$è ( $ d$("$I 4 $ê$"$$<$O■$ $4 $ 3 $<$Φ■$ $4 $ ( $d$("$Y( $ d$(ê$"$- $<$g■$ $4 ( O$ ((O$($O$$ O$$(O($;( $d$("$Y( $ d$(ê$"$- $<$╙ ■$ $4 ( O$ ((O$($O$$ O$$(O($;( $ d$("$"O$ ( O$$((O$($O$$ O$$(O($;( $ d$("$"O$ ( O$$((O$($O$$ O$$( O($;$ $< ■ 5 0" 4 4 ;; 0" 4 4 ;; 0" 4 4 ;; 0" 4 4 ;; 0" 4 4 ;; z h000E 009E x06FORMAT lx0BDESTINATIONlx0ECONTROL-STRINGlx05&RESTlx09ARGUMENTSn x07ARGLIST lx06FORMATn lx0BDESTINATIONlx0ECONTROL-STRINGlx09ARGUMENTSn x0BDESTINATION x0ECONTROL-STRING x09ARGUMENTS x02#T x0BOUTPUT-PORT x0FFORMAT-INTERNAL x19MAKE-STRING-OUTPUT-STREAM x18GET-OUTPUT-STREAM-STRING x05CLOSE t u ▌ < ² = ;▌ < 7", d " 5 4 4 4 4; z h0002 001D x13*FORMAT-DIRECTIVES* x0C#!UNASSIGNED t┘ █ Zd" ; z h0003 0023 x0DFORMAT-BUFFER x0C#!UNASSIGNED i012C t┘ █ Zd" ╔ ; z h0032 05A8 x0FFORMAT-INTERNAL lx0DOUTPUT-STREAMlx0ECONTROL-STRINGlx09ARGUMENTSn x0DOUTPUT-STREAM x0ECONTROL-STRING x09ARGUMENTS x18MAKE-STRING-INPUT-STREAM lx0CINPUT-STREAMn x0CINPUT-STREAM x05CLOSE lx0FRETURN-FROM-NILn x0FRETURN-FROM-NIL x09READ-CHAR lx05INDEXlx08NEXT-ARGlx12FORMAT-CONDITIONALlx02CHn x05INDEX x08NEXT-ARG x12FORMAT-CONDITIONAL x02CH c7E x0DFORMAT-BUFFER x15WRITE-STRING-INTERNAL x02G1 x05FALSE x06FORMAT x05APPLY x0FERROR-PROCEDURE lx0FRETURN-FROM-NILn lx0BNUMERIC-ARGlx0BATSIGN-FLAGlx0ACOLON-FLAGlx02CHn x0BNUMERIC-ARG x0BATSIGN-FLAG x0ACOLON-FLAG x05ERROR s0031End of format string in the middle of a directive c30 c39 c40 s0029Multiple atsign flags in format directive x02#T c3A s0028Multiple colon flags in format directive c5B s0011~[ seen inside ~[ x04TRUE c5D s0011~] seen before ~[ c3B s0011~; seen before ~[ x13*FORMAT-DIRECTIVES* x01C s001EUnimplemented FORMAT directive x04EVAL t < ; ▌ 4▌ < 64 =;▌ 4 0 ;▌ #╜ └"T Æê"+ $ $4 <╛ 6 'dê" ╚ Q 4 =!. Æê" $ $5 ;;0≤ 4 4 ;▌ 0 ; ▌ 4ê" <ü ■ 4 ┬ $ └ " ! ! ┬ $ └ "-í íR"T P !─ " e "( " <±■ #4$ !┼ % e "( " <º■ &4$ !æ ' e "R" <D■ (4@ A " ) 4 !3 * e "7ê" <╡■ +4 4 !≡ , e "Nê" <C■ -4 d ") 4 !û .n A ê " < ╕ ■ /04 d ê " G $$((, ,0 014 4 44 4 =!8²;0≤ 4 4 ;0" 4 4 ;;0" 4 4 ;;0" 4 4 ;;0" 4 4 ;;0" 4 4 ;; z h0007 005F x14ADD-FORMAT-DIRECTIVE lx04CHARlx04NAMEn x07ARGLIST lx04CHARlx04NAMEn x04CHAR x04NAME x13*FORMAT-DIRECTIVES* t u < ;▌ < 7 n " ; O O ; z h000D 00A8 x1EEXPAND-DEFINE-FORMAT-DIRECTIVE x17DEFINE-FORMAT-DIRECTIVE x13CREATE-SCHEME-MACRO lx04NAMElx04CHARlx05&BODYlx04BODYn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x0DSYMBOL-APPEND x07FORMAT- lx0CINPUT-STREAMlx0DOUTPUT-STREAMlx08NEXT-ARGlx0BNUMERIC-ARGlx0BATSIGN-FLAGlx0ACOLON-FLAGn lx08NEXT-ARGn x06DEFINE x14ADD-FORMAT-DIRECTIVE x05BEGIN t < 4 u ;A 4 @ A @A 4 O $ q $O O O $O $ $ O $ O O O ; z h000C 0074 x08FORMAT-~ c7E x14ADD-FORMAT-DIRECTIVE lx0CINPUT-STREAMlx0DOUTPUT-STREAMlx08NEXT-ARGlx0BNUMERIC-ARGlx0BATSIGN-FLAGlx0ACOLON-FLAGn x0CINPUT-STREAM x0DOUTPUT-STREAM x08NEXT-ARG x0BNUMERIC-ARG x0BATSIGN-FLAG x0ACOLON-FLAG x09%%DOTIMES x0AWRITE-CHAR t < 5 ▌ < 6 ; < $ 5 5 z h000C 0071 x08FORMAT-% c25 x14ADD-FORMAT-DIRECTIVE lx0CINPUT-STREAMlx0DOUTPUT-STREAMlx08NEXT-ARGlx0BNUMERIC-ARGlx0BATSIGN-FLAGlx0ACOLON-FLAGn x0CINPUT-STREAM x0DOUTPUT-STREAM x08NEXT-ARG x0BNUMERIC-ARG x0BATSIGN-FLAG x0ACOLON-FLAG x09%%DOTIMES x06TERPRI t < 5 ▌ < 6 ; < $ 5 5 z h0004 0033 x08FORMAT-& c26 x14ADD-FORMAT-DIRECTIVE x0AFRESH-LINE t < 5 4; z h000E 00BB x0EFORMAT-NEWLINE c0A x14ADD-FORMAT-DIRECTIVE lx0CINPUT-STREAMlx0DOUTPUT-STREAMlx08NEXT-ARGlx0BNUMERIC-ARGlx0BATSIGN-FLAGlx0ACOLON-FLAGn x0CINPUT-STREAM x0DOUTPUT-STREAM x08NEXT-ARG x0BNUMERIC-ARG x0BATSIGN-FLAG x0ACOLON-FLAG x06TERPRI x09READ-CHAR c20 x0CUN-READ-CHAR t < 5 ▌ " ! 4 ê " " < 6 ;0 ; 4 └ ê" 4 4 ═ z h0005 0039 x08FORMAT-S c53 x14ADD-FORMAT-DIRECTIVE x07%%WRITE x02#T t < 5 @ A 4; z h0004 0039 x08FORMAT-A c41 x14ADD-FORMAT-DIRECTIVE x07%%WRITE t < 5 @ A 4; z h000F 00B5 x0EFORMAT-INTEGER lx03ARGlx0DOUTPUT-STREAMlx0DNUMBER-FORMATlx0BDESCRIPTIONn x07ARGLIST lx03ARGlx0DOUTPUT-STREAMlx0DNUMBER-FORMATlx0BDESCRIPTIONn x03ARG x0DOUTPUT-STREAM x0DNUMBER-FORMAT x0BDESCRIPTION x05ERROR s002CThe argument to ~~~A, ~S, is not an integer. x0ENUMBER->STRING x15WRITE-STRING-INTERNAL x06FORMAT x05APPLY x0FERROR-PROCEDURE t u < ;▌ < 7çê"%<> ■ 4 4 5 0" 4 4 ;; z h0006 0039 x08FORMAT-B c42 x14ADD-FORMAT-DIRECTIVE x0EFORMAT-INTEGER lx03INTllx05RADIXlx01Blx01Snn s0001B t < 5 @ A 4; z h0006 0039 x08FORMAT-O c4F x14ADD-FORMAT-DIRECTIVE x0EFORMAT-INTEGER lx03INTllx05RADIXlx01Olx01Snn s0001O t < 5 @ A 4; z h0006 0039 x08FORMAT-D c44 x14ADD-FORMAT-DIRECTIVE x0EFORMAT-INTEGER lx03INTllx05RADIXlx01Dlx01Snn s0001D t < 5 @ A 4; z h0006 0039 x08FORMAT-X c58 x14ADD-FORMAT-DIRECTIVE x0EFORMAT-INTEGER lx03INTllx05RADIXlx01Xlx01Snn s0001X t < 5 @ A 4; z h0006 0025 x05ERROR lx0DFORMAT-STRINGlx05&RESTlx0BFORMAT-ARGSn x07ARGLIST x11DEFINE-INTEGRABLE lx0CNAMED-LAMBDAllx05ERRORlx0DFORMAT-STRINGx0BFORMAT-ARGSllx0CSCHEME-ERRORllx05APPLYllx08FUNCTIONlx06FORMATnlx03NILlx0DFORMAT-STRINGlx0BFORMAT-ARGSnnn x12PCS*PRIMOP-HANDLER t u O u ; z h0003 0020 x0ETYPESPEC-ALIST x0C#!UNASSIGNED llx05ARRAYlx07VECTOR?ls0008an arraynllx09CHARACTERlx05CHAR?ls000Ba characternllx11COMPILED-FUNCTIONlx0APROCEDURE?ls0013a compiled functionnllx04CONSlx05PAIR?ls000Ba cons cellnllx0CDOUBLE-FLOATlx06FLOAT?ls0028a double-precision floating point numbernllx05FLOATlx06FLOAT?ls0017a floating point numbernllx07INTEGERlx08INTEGER?ls000Aan integernllx04LISTlx05LISTPls0006a listnllx04NULLlx05NULL?ls000Ethe empty listnllx06NUMBERlx07NUMBER?ls0008a numbernllx0CSIMPLE-ARRAYlx07VECTOR?ls000Ea simple arraynllx11SIMPLE-BIT-VECTORlx07VECTOR?ls0013a simple bit vectornllx0DSIMPLE-STRINGlx07STRING?ls000Fa simple stringnllx0DSIMPLE-VECTORlx07VECTOR?ls000Fa simple vectornllx0DSTANDARD-CHARlx05CHAR?ls0014a standard characternllx06STRINGlx07STRING?ls0008a stringnllx0BSTRING-CHARlx05CHAR?ls0012a string characternllx06SYMBOLlx07SYMBOL?ls0008a symbolnllx06VECTORlx07VECTOR?ls0008a vectornn t┘ █ Zd" ; z h001D 01E5 x11EXPAND-CHECK-TYPE x0ACHECK-TYPE x13CREATE-SCHEME-MACRO lx05PLACElx08TYPESPEClx09&OPTIONALlx06STRINGn x07ARGLIST lx0DDEFMACRO-FORMn x0DDEFMACRO-FORM x15%%CHECK-DEFMACRO-ARGS lx05PLACEn x05PLACE lx08TYPESPECn x08TYPESPEC lx06STRINGn x06STRING x0ETYPESPEC-ALIST x05ERROR s001B~A is an unrecognized type. lx09PREDICATElx0BDESCRIPTIONn x09PREDICATE x0BDESCRIPTION x04TEMP x03LET s0020The value of ~A, ~~S, is not ~A. s0002~A x06FORMAT x05QUOTE x06UNLESS x05APPLY x0FERROR-PROCEDURE t < 4 u ;A▌ 4 @ A▌ @A▌ @▌ n ê " ( < %■ 4 C $ I ▌ $ <$N ( É("( $ 5 $ $( O(( ,O(,(O(( (4O, (O((,,O,(;O O É" ═ Å" 4 Éê" O OO Åê"O OqO O O O O ;0" 4 4 ;; z h0002 001D x13*BREAK-ON-WARNINGS* x0C#!UNASSIGNED t┘ █ Zd" ; z h0010 0085 x04WARN lx0DFORMAT-STRINGlx05&RESTlx04ARGSn x07ARGLIST lx04WARNn lx0DFORMAT-STRINGlx04ARGSn x0DFORMAT-STRING x04ARGS lx10RETURN-FROM-WARNn x10RETURN-FROM-WARN x06FORMAT x02#T s000B~&Warning: x05APPLY x13*BREAK-ON-WARNINGS* x14BREAKPOINT-PROCEDURE s000DWarning break t u ▌ < ■ = ;▌ < 7 ▌ 4 4 " ┘ 4 ; ; z h0008 010E x0BLIST-LENGTH lx01Xn x07ARGLIST lx01Xn x01X lx17RETURN-FROM-LIST-LENGTHn x17RETURN-FROM-LIST-LENGTH x0C%%ENDP-ERROR t u < ;▌ < 7▌ < 7 0 ; 0l " 4A0t " Q 4d" \" 4 QEA å ê $ ï ê " 5 ; ; ê $ ï ê " 5 ; ; z h000C 00A6 x03NTH lx01Nlx04LISTn x07ARGLIST lx01Nlx04LISTn x01N x04LIST x05ERROR s003DThe first argument to NTH, ~S, is not a non-negative integer. x08LIST-REF x06FORMAT x05APPLY x0FERROR-PROCEDURE t u < ;▌ < 7 ç" _ êê" <' ■ 4 5 0" 4 4 ;; z h000B 00A1 x06NTHCDR lx01Nlx04LISTn x07ARGLIST lx01Nlx04LISTn x01N x04LIST x05ERROR s0040The first argument to NTHCDR, ~S, is not a non-negative integer. x06FORMAT x05APPLY x0FERROR-PROCEDURE t u < ;▌ < 7 ç" _ êê" <" ■ 4 z ;0" 4 4 ;; z h0016 013D x05NCONC lx05&RESTlx05LISTSn x07ARGLIST lx05NCONCn lx05LISTSn x05LISTS lx11RETURN-FROM-NCONCn x11RETURN-FROM-NCONC lx0FRETURN-FROM-NILn x0FRETURN-FROM-NIL lx01Ln x01L lx04LISTn x04LIST lx02G1n x02G1 x02G0 x05ERROR s0031One of the arguments to NCONC, ~S, is not a list. x06FORMAT x05APPLY x0FERROR-PROCEDURE t u ▌ < = ;▌ < 7▌ < 6@;▌ 0 ;▌ "p @▌ ê ▌ $G ï" <Ö 6 $ <O ■ 4 == A= à ;Aê" C 4A ┘0" 4 4 ;; 0á ; z h0008 0048 x07NRECONC lx01Xlx01Yn x07ARGLIST lx01Xlx01Yn x01X x01Y x08REVERSE! x05NCONC t u < ;▌ < 7 4 5 z h0009 0084 x04SOME lx09PREDICATElx03SEQn x07ARGLIST lx09PREDICATElx03SEQn x09PREDICATE x03SEQ lx10RETURN-FROM-SOMEn x10RETURN-FROM-SOME x08FOR-EACH t u < ;▌ < 7 ▌ < 6 ; < 4 ;4 " 5 ; z h000A 0080 x05EVERY lx09PREDICATElx03SEQn x07ARGLIST lx09PREDICATElx03SEQn x09PREDICATE x03SEQ lx11RETURN-FROM-EVERYn x11RETURN-FROM-EVERY x02#T x08FOR-EACH t u < ;▌ < 7 ▌ < 6; < 4 ;4 ê" 5 ; z h000B 007E x06NOTANY lx09PREDICATElx03SEQn x07ARGLIST lx09PREDICATElx03SEQn x09PREDICATE x03SEQ lx12RETURN-FROM-NOTANYn x12RETURN-FROM-NOTANY x02#T x08FOR-EACH x11RETURN-FROM-EVERY t u < ;▌ < 7 ▌ < 6; < 4 ;4 " 5 ; z h000A 0080 x08NOTEVERY lx09PREDICATElx03SEQn x07ARGLIST lx09PREDICATElx03SEQn x09PREDICATE x03SEQ lx14RETURN-FROM-NOTEVERYn x14RETURN-FROM-NOTEVERY x08FOR-EACH x02#T t u < ;▌ < 7 ▌ < 6 ; < 4 ;4 ê" 5 ; z h0006 0078 x11%%CHECK-INDEX-ARG x05ERROR s0041The :~A argument to ~A, ~S, is not a non-negative integer or NIL. x06FORMAT x05APPLY x0FERROR-PROCEDURE t < ; " ç" ] ê" < ■ 5 ;0" 4 4 ;; z h0008 0074 x16EXPAND-CHECK-INDEX-ARG x0FCHECK-INDEX-ARG x13CREATE-SCHEME-MACRO lx03FCNlx03VARn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x05QUOTE x11%%CHECK-INDEX-ARG t < 4 u ;A 4 @ A @O OO O O O OO; z h0006 006E x14%%COMPARE-INDEX-ARGS x05ERROR s0041The :~A argument to ~A, ~S, is greater than the :~A argument, ~S. x06FORMAT x05APPLY x0FERROR-PROCEDURE t < ; _"# , 0 $ < ■ $ , 05 ;0" 4 4 ;; z h0008 0096 x19EXPAND-COMPARE-INDEX-ARGS x12COMPARE-INDEX-ARGS x13CREATE-SCHEME-MACRO lx03FCNlx09START-VARlx07END-VARn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x05QUOTE x14%%COMPARE-INDEX-ARGS t < 4 u ;A 4 @ A @A @O O O O O $O $ O$ O($O (O O O ; z h0015 01EE x06%%FILL lx03SEQlx04ITEMlx05STARTlx03ENDn x03SEQ x04ITEM x05START x03END x11%%CHECK-INDEX-ARG x04FILL x06LENGTH x14%%COMPARE-INDEX-ARGS lx07CDR-SEQn x07CDR-SEQ x0FSUBSTRING-FILL! x05ERROR s0032The first argument to FILL, ~S, is not a sequence. x06FORMAT x05APPLY x0FERROR-PROCEDURE x09%%DOTIMES lx0FRETURN-FROM-NILn x0FRETURN-FROM-NIL t < ; ▌ 4 4ê" ê" 4 40▌ "'▌ <τ 6 <≈ 6= QÅ" $ $4 /æ" <R 6 < ■ 4 ;0" 4 4 ;;0 ; ^ ê"Q π ; ê $ ï; ; @ A ; <σ 5 ▌ < R 5 ê" 4 @ A ; z h0008 0061 x10%%REPLACE-STRING lx07STRING1lx07STRING2lx06START1lx06START2lx05COUNTn x07STRING1 x07STRING2 x06START1 x06START2 x05COUNT x09%%DOTIMES t < ;▌ < 7 < 5 P P╟ ╚; z h0008 0061 x10%%REPLACE-VECTOR lx07VECTOR1lx07VECTOR2lx06START1lx06START2lx05COUNTn x07VECTOR1 x07VECTOR2 x06START1 x06START2 x05COUNT x09%%DOTIMES t < ;▌ < 7 < 5 P P ; z h001E 0386 x09%%REPLACE lx04SEQ1lx04SEQ2lx06START1lx04END1lx06START2lx04END2n x04SEQ1 x04SEQ2 x06START1 x04END1 x06START2 x04END2 x11%%CHECK-INDEX-ARG x07REPLACE x06LENGTH x14%%COMPARE-INDEX-ARGS lx05COUNTn x05COUNT x05ERROR s0032The second argument to REPLACE, ~S, is not a list. lx08CDR-SEQ1lx08CDR-SEQ2n x08CDR-SEQ1 x08CDR-SEQ2 s0034The second argument to REPLACE, ~S, is not a string. x10%%REPLACE-STRING s0034The second argument to REPLACE, ~S, is not a vector. x10%%REPLACE-VECTOR s0035The first argument to REPLACE, ~S, is not a sequence. x06FORMAT x05APPLY x0FERROR-PROCEDURE x09%%DOTIMES x07CDR-SQ2 x07CDR-SQ1 t < ; ▌ 4 4 4 4 ê " ê " ê " 4 ê " 4 4 4 R $R $c ▌ 0w " b0W ê " < ■ 4 $$▌ $( <(─6(( <(É6(( <(A6(= !á Å " < Å ê " < ∞ ■ 4 4 \ æ " < æ ê " < y ■ 4 4 < ■ 4 =;0" 4 4 ;;0" 4 4 ;;0" 4 4 ;; < 5 @ @ A @ A ; < 5 @ A ; < 5 @ A ;0" 4 4 ;; ê $ ï; ; ê $ ï; ; z h000F 017C x08%%DELETE lx05THINGlx03SEQlx04TESTlx05COUNTn x05THING x03SEQ x04TEST x05COUNT x05ERROR s0057The :COUNT argument to DELETE, ~S, ~ is not a non-negative integer or NIL. lx01Ilx08PREVIOUSlx06RESULTn x01I x08PREVIOUS x06RESULT x06FORMAT x05APPLY x0FERROR-PROCEDURE t < ;▌ "ç" ]ê"( <■ 4 ç" `"; ▌ < 6 ;0 ; " " Æê#ü @ " 4 ê " e ê " C " Q d " @ A ê " A A!h ;; 0≤ 4 4 ; z h0006 00B6 x06%%FIND lx04ITEMlx03SEQlx04TESTlx03KEYn x04ITEM x03SEQ x04TEST x03KEY t < ;▌ < 70 ; "z@ " 4 " 4 ê"e êê" 4 A!Ç ; z h0006 009C x08%%MEMBER lx04ITEMlx04LISTlx04TESTlx03KEYn x04ITEM x04LIST x04TEST x03KEY t < ;▌ < 70 ; "`@ " 4 " 4 ê " e ê ê " 4A Ü ; z h0005 0093 x07%%ASSOC lx04ITEMlx05ALISTlx04TESTn x04ITEM x05ALIST x04TEST t < ;▌ < 70 ; "Z@@ " 4 ê"e êê" 4 A á ; z h0017 0201 x0EPARSE-KEYWORDS lx08KEY-LISTlx08ARG-LISTn x08KEY-LIST x08ARG-LIST lx06RESULTn x06RESULT x08REVERSE! x0DSCHEME-MEMBER x05ERROR s001CThe keyword ~A is undefined. x06FORMAT x05APPLY x0FERROR-PROCEDURE lx0FRETURN-FROM-NILn x0FRETURN-FROM-NIL lx01Kn x01K lx05SEEN?n x05SEEN? x02G0 s0037The keyword ~A appears at the end of the argument list. s0032The keyword ~A appears twice in the argument list. x02#T t < ; ▌▌ <╠ 6 < 650 ; "D@ 4 ê" <S ■ @ 4 E ╢ ;; 0≤ 4 4 ; 0" 4 4 ;;▌ 0 ;▌"5 ▌ < W 6 ê " O =A= └ ;; 0≤ 4 4 ;0 ; "sAê" <²■■ @ 4 @@ d "8" <{ ■ @ 4 C O E ç ; z h0009 007E x0BEXPAND-FILL x04FILL x13CREATE-SCHEME-MACRO lx03SEQlx04ITEMlx05&RESTlx08KEYWORDSn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x0EPARSE-KEYWORDS lx06:STARTlx04:ENDn x06%%FILL t < 4 u ;A 4 @ A @A 4 O O O ; z h0009 007E x0EEXPAND-REPLACE x07REPLACE x13CREATE-SCHEME-MACRO lx04SEQ1lx04SEQ2lx05&RESTlx08KEYWORDSn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x0EPARSE-KEYWORDS lx07:START1lx05:END1lx07:START2lx05:END2n x09%%REPLACE t < 4 u ;A 4 @ A @A 4 O O O ; z h0011 00CE x0DEXPAND-DELETE x06DELETE x13CREATE-SCHEME-MACRO lx04ITEMlx04LISTlx05&RESTlx08KEYWORDSn x07ARGLIST lx0DDEFMACRO-FORMn x0DDEFMACRO-FORM x15%%CHECK-DEFMACRO-ARGS lx04ITEMn x04ITEM lx04LISTn x04LIST x0EPARSE-KEYWORDS lx05:TESTlx06:COUNTn x05EVERY x05DELQ! x08%%DELETE t < 4 u ;A▌ 4 @ A▌ @A▌ 4 <D 0> 4 " O O O ; O O O ;;ê; z h0009 007E x0BEXPAND-FIND x04FIND x13CREATE-SCHEME-MACRO lx04ITEMlx03SEQlx05&RESTlx08KEYWORDSn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x0EPARSE-KEYWORDS lx05:TESTlx04:KEYn x06%%FIND t < 4 u ;A 4 @ A @A 4 O O O ; z h0007 0083 x05SUBST lx03NEWlx03OLDlx04TREEn x07ARGLIST lx03NEWlx03OLDlx04TREEn x03NEW x03OLD x04TREE t u < ;▌ < 7 d ";ï"6 @ 0║ A 0ñ O;; z h0007 008D x06NSUBST lx03NEWlx03OLDlx04TREEn x07ARGLIST lx03NEWlx03OLDlx04TREEn x03NEW x03OLD x04TREE t u < ;▌ < 7 d ";ï"@ @ 0║ A 0¥ ;; z h0011 00CE x0DEXPAND-MEMBER x06MEMBER x13CREATE-SCHEME-MACRO lx04ITEMlx04LISTlx05&RESTlx08KEYWORDSn x07ARGLIST lx0DDEFMACRO-FORMn x0DDEFMACRO-FORM x15%%CHECK-DEFMACRO-ARGS lx04ITEMn x04ITEM lx04LISTn x04LIST x0EPARSE-KEYWORDS lx05:TESTlx04:KEYn x05EVERY x0DSCHEME-MEMBER x08%%MEMBER t < 4 u ;A▌ 4 @ A▌ @A▌ 4 <D 0> 4 " O O O ; O O O ;;ê; z h0007 0057 x06ADJOIN lx04ITEMlx04LISTn x07ARGLIST lx04ITEMlx04LISTn x04ITEM x04LIST x0DSCHEME-MEMBER t u < ;▌ < 7 4 "; O ; z h000A 009D x0CEXPAND-ASSOC x05ASSOC x13CREATE-SCHEME-MACRO lx04ITEMlx05ALISTlx05&RESTlx08KEYWORDSn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x0EPARSE-KEYWORDS lx05:TESTn x07%%ASSOC x0CSCHEME-ASSOC t < 4 u ;A 4 @ A @A 4 @ " O O O ; O O O ; z h000C 00D2 x03ELT lx03SEQlx05INDEXn x07ARGLIST lx03SEQlx05INDEXn x03SEQ x05INDEX x03NTH x05ERROR s0031The first argument to ELT, ~S, is not a sequence. x06FORMAT x05APPLY x0FERROR-PROCEDURE t u < ;▌ < 7 Å" ╟ ;æ" ;0^ " 5 < ■ 5 0" 4 4 ;; ê $ ï; ; z h001A 01F0 x06SUBSEQ lx03SEQlx05STARTlx09&OPTIONALlx03ENDn x07ARGLIST lx06SUBSEQn lx03SEQlx05STARTlx02G0n x03SEQ x05START x02G0 lx12RETURN-FROM-SUBSEQn x12RETURN-FROM-SUBSEQ lx03ENDn x03END lx06RESULTn x06RESULT x08REVERSE! x06MAPCAR lx06LENGTHn x06LENGTH lx0ANEW-VECTORn x0ANEW-VECTOR x05ERROR s0034The first argument to SUBSEQ, ~S, is not a sequence. x06FORMAT x05APPLY x0FERROR-PROCEDURE x09%%DOTIMES t u ▌ < ² = ;▌ < 7▌ @▌ 0ç " A < O6 " ▌ <√ 6 5 <Σ 5 æ " 2 $ ⌐ R ▌ ¿▌ <g 6; Å " $╞ º; < ■5 0" 4 4 ;; < 5 P ⁿ ⁿ ⁿ ⁿⁿ ⁿ;; < R 5 @ A O ; < 5 @ A ; ê $ ï; ; z h0015 016C x08COPY-SEQ lx03SEQn x07ARGLIST lx03SEQn x03SEQ lx14RETURN-FROM-COPY-SEQn x14RETURN-FROM-COPY-SEQ x06MAPCAR lx06LENGTHn x06LENGTH lx0ANEW-STRINGn x0ANEW-STRING lx06LENGTHn lx0ANEW-VECTORn x0ANEW-VECTOR x05ERROR s0036The first argument to COPY-SEQ, ~S, is not a sequence. x06FORMAT x05APPLY x0FERROR-PROCEDURE x09%%DOTIMES t u < ;▌ < 7▌0 " < 5 Å"'╞▌ ╔ ▌ <¿ 6 ;æ"&⌐▌ ¿ ▌ <L 6; < ■ 5 0" 4 4 ;; < 5 ⁿⁿ ⁿ; < 5 ╟ ⁿ╚ⁿ ⁿ;; ê $ ï; ; z h000A 00BE x06LENGTH lx03SEQn x07ARGLIST lx03SEQn x03SEQ x05ERROR s0034The first argument to LENGTH, ~S, is not a sequence. x06FORMAT x05APPLY x0FERROR-PROCEDURE t u < ;▌ < 70w " Ñ;Å" ╞;æ" ⌐; < ■ 5 0" 4 4 ;; ê $ ï; ; z h0010 00B1 x0BCONCATENATE lx04TYPElx05&RESTlx09SEQUENCESn x07ARGLIST lx0BCONCATENATEn lx04TYPElx09SEQUENCESn x04TYPE x09SEQUENCES x06STRING x0DSTRING-APPEND x05APPLY x04LIST x06APPEND x05ERROR s005FThe first argument to CONCATENATE, ~S, ~ is not a known sequence type specifier. x06FORMAT x0FERROR-PROCEDURE t u ▌ < ■ = ;▌ < 7 e " 5 e " 5 < ■ 5 0" 4 4 ;; z h000B 009E x09COPY-LIST lx04LISTn x07ARGLIST lx04LISTn x04LIST lx15RETURN-FROM-COPY-LISTn x15RETURN-FROM-COPY-LIST lx06RESULTn x06RESULT lx04NEXTn x04NEXT t u < ;▌ < 7▌"+@O ▌ ▌ < 6; ;A0 ; "!@O @ A A ┘ ; z h0009 0082 x12EXPAND-MAKE-STRING x0BMAKE-STRING x13CREATE-SCHEME-MACRO lx04SIZElx05&RESTlx08KEYWORDSn x07ARGLIST x15%%CHECK-DEFMACRO-ARGS x0EPARSE-KEYWORDS lx10:INITIAL-ELEMENTn x12SCHEME-MAKE-STRING t < 4 u ;A 4 @ A 4 @ "O O O ;O O ; z 
